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О REE EAE EV GIU Љ— виа, 
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жалж 
Windows#lOS XH P'sTEUACRANIGA КӨККЕ, Linux IUNDOH РИМ ВЕЈН AT 
fk ta El ЈОЖЕ RERIK PH tD. 
Windows 
1. HEMSE: htp:/ww.r-project.org! 
2. Hifi “CRAN” , ИНЖ Ф НЕОНА. 
3. МЕНЕ ВО ИА. 
4. Жай "Download and Install R” КИ "Windows" . 
5. МАН “base”, 
6. АННЕ БЕЕН РОВ (RM exet) o 
7. 


. FRERE, MHF (сле) HARRE О RL, ЕН, 
ЕВЕ. 
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ЯНЕ: utplIww.r-projectorg. 

. Жай “CRAN” , f fil ЖИЕН АННИНО. 
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Ji "MacOS X" . 

. Milî “Files: FJ pef XH. FRIERE. 

ТАЗЕ, аре FAM ISHUO pke XERE reb RL, инт 
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Linux Щ UNIX 


XEFLinuxff Xe 9E GRE, "CATH ЕВЕ SEE AG. ИЖЕ 
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وش دوو 


AME RUBER 
Ubuntu Debian  r-base 
RedHatFedora R.386 
Suse R-base 


ааа аган тат Но. — AE HEL PLAE DENER D ЖР) 
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РАКА пдов HOS XXN PENEMA, BELTS M SERI IT 
MARR ЗО ВИН ORE. САМАК Т З Ж RIOD, nde МИН 
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Жай). 


MRF, (Linux ÉIUNIX E КИН кто. KERN, ЖАСЫН 
пне. наносен, ЛЕЕ Е ТАЗ ГИНЕ, ваша 
ЖЕ t ТЕБЕН BI T Mri. 


frUbuntuskDebianBfEXRA Е, Нареден ТЕ, тоа Тарі-реб ЕЕ 
Е sudobtR, ЖІБІН ШЕ. 


5 sudo apt-get install r-base 


fERed Нан едога МЕЗЕК, Hyun f AERIS, НІН nF. 
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ЖО ACA Ue URSUS CHE, ЖЕНТ UL RE ЛЕВА AS, 22. 
TEX BHL, ЭГЕ А ҚОН ЗЕК. (ELinux UNIX E ДЕ ЕНЕН (IU 
bi, МСВАМИИИЯ КАФ, К-2.12.1 rar gMk (02.12.1 9] 2 Mc 
МУЖУ), REME TRE F INSTALL, жени. 
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HFFR, (R ina Nutshell) (O'Reilly) — BAH TEJER, HHA 
fifeWindowsfüOSXBME CHOR ЕРАЗ. ЖИЕН HE GE Е 
ЗАМЕТНЕЕ ДЕ ЖЕНУ Г ЛЕЛЕ А "RERNA (R Installation and Administration) ЮЗ. 
ЖЕ (attpzl/cran.r-project.org/docimanuals/R-admin-html) , Vcl STEUGR3ECRANISAS F 
BRAN, УНЕ T fE £h Sl sp o fü ie RRK, 


AERE ЕНИ. ПЕСКА ОЛНО, 9839. 


1.2 ав НИЕ 


ра 
ГОТА 


вал 

windows. 
Жан “ЖНЖ” (Start) -ЖН “HFEF” (АП Programs) ~ER, REN 
ПДВ B Жой t i ERKE (БЕЗ ЕЕЕ T — RIBES) . 
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А ВАррИсайопз (FREE) НИ, зачин иако, 
ЖИЕН, ЧЛАНОМ финал “R” KZRA. 





тих МХ 
RARR (KERR) Жабка. 


не 
БАКЕ еи тие Er 


ЕМ тдом а ЗЕ ТА 
ВАК fEWindowsrh ЖИЕ B DE, kW 0 —4- 4 ЖЕНИ: (R Console) #9 
XERO, НАС ВАХ (WWI) 

















81-1: Windows ЕФЕ БА 


RákiFfEWindows “Ft” (Start) ЖН НЕЯ, ПЕЧЕНИ 
ЖЖ ЖӨ ADR RE ЕН, DURCH НН ВЕ “R 2.8.1”. “в 29.1”. “R 
канала алаға тат НЕ Со адз НОВА A 
женения) . 
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Жм FH" (Start) Жаза Ж, РЕНЕ SU LEER, Ж 
ЖИВАН ЈЕ каша X Wie НЕКЕ. 


Rk fi fE ЖЕНЕ BEP ЖИВЕ Dn Ж НИЧЕ ЗК, ГГ О. МЕЗЕ жі” 
(Start) ЖФ ВЕЛО, Сенека S ят. жегата da I DA 
в, ЖЕНИ, ЖЕ. 


Ab TEL TIER R FU RDara X fF ЖАК, КР RDara ИЕККЕ 
JERAETET FE BC ХЕ. во озат ЫМ, ИКАТ АЕ зу T RBS RE 
КИ Т.Е ARK EAE AR, ВОТ ЕН ЯЕ, BHR, ETHE 
ТАЛА АЕНА T fE ak, 0.970 55 заме Дтаве Boki T fes s PEOR TEILTE Н 
ж. TERRAE REER HSMR кратай сЕ. UA ЧТО ТЕСЕН 
Ж, ИШАЯ КО RDara XC W Ж Е. 


ЗАБЫТА ЙО Е, ОДАКТАР КЕМ пао ТЕВЕ НМ, THEE ЛЕ Ж 
ш. 


° MRM FH" (Start) ЖЕЙТ, WAITE RARR ENCA 
Documents and Settings\<username>\My Documents (Windows XP) RCA 
Usersveusername»NDocuments (Windows Vista, Windows 7) „ ПЖҚ, 
"E MER. USERÍÜ VL ЖОКЛЕ HR ES. 


to An t W m НЕ КВ, (Oe GI ИД РКО AAR, 
ЕВЕ Т.{ЕН Ж. ЖИЕК АНЕ, d MET 
(Properties) , (689 “А И” (Start in) СВОД АЕ НЕ, жан 
“яж” (OK) RAZR, 


° Uli RDaraX тж fr R $k ft Ë É f(E) А. RA ADR LE AKRE N 
Wi краш Е Н Ж, БИО E SAT F k ИЕНІ. 


ЖЕНГЕН Е, MELER HE h Е веъма ва É ЖЕТИ WIE T FERES (Оз) o 


ДЕ АЕ, Windowsi ЖЧК HH] RHET 28 — 1 20 гегт.ехей lé BUT. STEM E 
ЕВН bin В ЖАНЕ ОСЕ. HERBEM (Graphic User Interface, 
GUI) ША, Rrerm exeik ИН УНШ (GUI) , ЖЗ. БАЕВА ЧЕ ЬЕ НЕ. 
X (ЧЕНЕ) Т.Е, два ТУ пао 5 МЕН ЕЗ НН ЕДБ, ИЖЕ 
вас. къвжиквткайнисоияж, ПРЕНИО. 
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ЖО5 ХР ZTR 

fEApplications Зеф КЕ БАТУР ИОС ОЛ (ARRIER, IHRM 
EUH XF 3616 ЗА ЕЕЕ ВЕН), ЕНЕ А УИ. КАКО О Ж 
ПАРЕ А, ЖИМ АН. 


ВАЛОВЕ РЕНЕ А. UR" Xie GRIOISSIGRUE. 


TELinuxlUNDGE & зае 
fELinuxBIUNDOPDUIREGE OFPRA “R” , ИЕН АНИМЕ. WAN 
EEK, ASIE n. 


КАНА Kik r ЈИ, TLEAN- -help kitt, 


E Ed] 


JU AURI ЫН НЕКЕ. EXCITE ТРУПЕ ТАИ T ETE RI DER NL; 
183.2, Anf RA PE DR A НИЛ Е, ES АЗ. BILLER «Е in a Nutshell) 
ctam. 


1.3 ARS 


ад 
ВАА, ИНФ ЕЛИ, int Зони? 


Е 


АТР ВЕ @ ана А ЖЕЉА. ВАНА A НИ ЗЕМ, ва EAA 
AU VIVERE dre FH, ТУЧА 


Wie 
КӘНЕ ">" ТЕО АН в, TCRA N ИЕ C iki UH iQ A 
+. аКШ “КН”. m. 


БЕЗ 
ар 


жанны. ВЕ, ЈЕЛЕНЕ. 
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227i [1] #4 A РУТ РТУ HER, викан RI — 4 
TRAR. (E ИНАН, 2289111. Же SIB 4k d ЛЖ. Hi 
РАНИЈИ Ou — ЕЖЕН ЛЕ, БЕНО ЗЕЛЕН. 


TEMA ЕЗБЕ CINE. канала > тойла ле ін TH 
9. Шпах(1,3,5) Хо Уж AO AS, ЖЕКО HUEAR A ff) ИРАНА TAR: 


» max(1,3,5) 
uls 


Е, "max(1,3," FET REEMA, Икан > ESOS “+ , WE 
ВАНЯ ЛЕЖА. dn: 


> max(1,3, 
+) 
05 
ЛЮ РЕ BAR ICD, МИЛЛИ, Rk ада Па B t) fy 
APARECER OE. ILLUC eB. EREMAN, flc 
Ak. AR FERIAM Fs 
L MARRS (ARARA) o 
Ri fiM. 
миша ff ° 1" анин: RO. 
жи 7—7 7—7 варе, Фор. 
Желео BE MIRAME. 
р A EMMET. 
ЕТ “ЮЖ” (Enter) b. WARENI. 


АЕ ЖЖЕНИЕ. RHE T VESTRE НЕХ, Bikin 
Жал, 


RI1: вета 





лови вв» 


LI Ctrl SRR AR 

MEM Ctrl+P ЕЕЗ а] 
F Fk ‘сим BUE PERCHE Ar E 
 Backspacefit сш+н MERAN tE Ac ЩИ 
LI] Ctrl+D ДЕ 
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RI1: SEDES (ж) 


== спина ят 

Homefit Cul+A важиенена 

Endfit Си+Е аа кеч 

GELES Ctrl+F В) 

HERK Ctrl+B Жый FRE 
сак BUB > ЖАН rJ RI BE ARE 
Ctrl+U А УРА ER PRI ARE 

Там же (ВРУ) 





fEWindowsslOS ХЕ, WIERE в, УАН Иви ЕЖ 
MNS. 


HRSA 


$02.13. (EWindowsd ob, EFE “WM” (Help) ВМА" 
(Console) , TTEA SET DeL Gb Cr PE, d re вина ја. 


1.4 ЗЕ HIR 


217 
шоган, 


УУ 


Windows 
ЕЖА “ХР” (File) — “ВН” (Exit) , Ва Елге жіне 
В "х". 
osx 

TECMD«q (арре+а) HAG, давай таны х" 
Linux UNIX 

ЧЕН Енсичовчев. 
ЖЕНГЕ S Ber BESTE Тан (afe еш) ЖӘЖЕБУЕ, 

>40 
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иж, НЕНА SOIRS. 


ht 
WHM, Ros VE ЕН THES, НЕВА. 
* Bae cres iB. 

° ЖИ, (АН, 

«пијан, Жана. 


HERFE, RARER EET PE HL Я Е EMA крагав Ж. ВАН ТЕ 
Mh EER ACE, та ВЕЗЕЛ НЕ. KILER TE SERI ССД ВЕНЕ CR IHR 


PRSA 
LEHR TEB IGI ETE LI ХРОМ, ИА 
32, BTIN (R in a Nutshell) БОЕН. 


1.5 PREETHA 


fo] RR 
ЖЕШКЕ PE IE ФЕЈ ТО УУВНСВ LER, FINGER, ТЛЕ, 


жалж 


Windows OS X 
TLEH Esca Ai “tı” (Stop-Sign) HRI T fE. 


Linux МА 
Жстнст, ӨЛКЕ GG (ERO BUT AR HiR$K ff . 


не 
ак Карата, Кво а а HE РЕНЕ НЕ. RRHH 
вж. IEF ЕН ТЕ alit Fr 


E E 


SX kia. 
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1.6 ZB SB BJ sc 8 


DE] 
аллы та REDI CES. 


WRITE 


Жы А help. start RT FRISCH RIK. Up, 
> help.start() 
Mh STELBEHERU EERE Te AES RI CIS 
Wie 
к (0936 МО T СТ OB 0) BD ОЙ. НХ RUM, LII 
ИНЬ НЯНИ. 


ИАТА ОР ВИ СЕ, ARRATI к 
ВРЕТ, Anf 1-2 BE. 




















81-2: яшхнлаяж 
WORT “8%” (Reference) 882 PIA НЕ ЖЕН. 
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ВЗК (Packages) 
ез НЕНА, ОЗОН. Amid Wa 
4, TOURRA ЕЕ ЖЕНИС ЖКП. 


ЖӘН УЭ ВЕЗЕ (Search Engine & Keywords) 
idi A ПРИ УЗЕТИ, ВНЕСЕНА МНЕ E АЧ, ВАХ 
ишн ТЕ ВНЕ Ж поканя, АНАПА URSI IER пт. 


»взя 


Ac ibd AEQ ии SC HE T AER AK FERRE BL SCA ЫЛ, РОЗА Е STRE fr EMIN 
Mtt. 


1.7 FREER BEBO E BJ) Sc 38 


ізі 
WETE ЗЕЕ E CT STONE ENB. 


ал 
Замер t GM kisi. (dn. 


> help(functionname) 
Margs б ВЫ Оо К) ВК. lin, 
> args(functionnase) 
Жехатр ед cfe fi ñ ВЕОМА (И. (in. 
> exasple(functionnase) 
тие 
дни Ей К, (aha. KAEKEHE. Эп 


JEUNE ВОВ, қалатын акен. RE A Ми. 
ЖИА в. 


ЧИ, 28 T Мпезп й 2 867586, Е Hhelpir4 ЖЕНКИ. И: 
> help(nean) 
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НАВАРЕ RR ERIT А, ifr Ф EITI RRE, дена CURE IHE UT E 
кеме, перев ЖЕНИ 727 FS, И: 


> mean 


жийи T MEREK: НВО ЕК? BENE? HITEH 
аву, Я: 

> args(nean) 

function (x, ...) 

ши. 

> args(sd) 

function (x, na.rm = FALSE) 

wu 
Арада НЕ KE KAMA, LMA теа пва ТУ Ar, JO o 
Ав, ЕВРЕИ. РЕБ ав ТТ ЙГ, ата UR ГЕ mean 
CBE — xi CAR — 4 па табу а ви (ЭПИ новия, 14: MC 
атыма). 


REK ЕЕ tk tpl X ii fE ka — Me MA НН UAE НИЯ. ВИЛЛЕ, 
ТЕЧЕ Је xamp1edt 4 tt Я T- 08 JU BET. G STELICR IER te 02588. И, 
AE Fneantitil ти кн, свикан, ЖОРА, ДЖ 
example ИНЕТЕ, (án: 

> exanple(sean) 

meam x <- c(0:10,50) 

mean» xm <- mean(x) 


meam c(xm,mean(x,tria = 0.1) 
[1] 8.75 5.50 


meam» mean(USArrests,teim = 0.2) 
Murder Assault UrbanPop тәре 
7.42 167.60 66.20 22.16 


DI Ета Лехапр1е(пеап) 4, Жәлил, VERLA Нит 
VR Ë fE NBI SC PPS DAHER, ЗЕНА, 


PRSA 


ФАОЛ ВАЕН, ВАЗЕ ВЕНЕ. 
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1.8 ВЖЕ 


2121 
ЭЧ (EAS ИВ НРО ний ЗЧ В RRR ВАСА НЕА А, Не 1 ри E яхі 
МЕ ж Ж. 


за, ИИА ЕЗ ERE CERE ы. 


наћи 


{и Мне]р. search A Bc ЖӨИ L ЗЕЕ Jc 

> help.search("pattern") 
KOS Ж {НӨ Ж А Жравветт X — ИВО кат. EE: Me ране тв ја Um 
БОНУ 
-Eili у 4 @ ILE ИЯ OBER GWR КЖ), A 
dn: 

> pattern 


не 
кожтуохнюнае, TIER NRK живеене Ж ЛИЗ начи LOM, 
йй. 


» help(adf.test) 

No documentation for 'adf.test' in specified packages and libraries: 

you could try 'help.search("adf.test")" 
A Ur ci VER Mee Е TE НИСИ. UI Seca PH GC ВА А ST RE AE H T E Т Pk (JR t 
ЖИЛ, ИЗВЛЕК. KH RUF KUWA) (catch- 
22) (МНЕ ЖЕНЕВЫ FM KRE, ВЕНЕВ КНУ ЗС, it 
#2935). 


жназнини, ЕЕЕ кы ЖЖ. EMER E HERNI 
ОЖЕНИ (ВП Нһе1р.ѕеагсһё Ф) , fiin. 
> help.search("adf.test") 


аю анкер. (m: 
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Help files with alias or concept or title matching 'adf.test' using 
regular expression matching: 


df.test Augmented Dickey-Fuller Test 
Type '?PKG::F00" to inspect entry 'PKG::FO0 TITLE’. 
ERRER T fEtseriest)rh (adf кесе. ЭПАИК Не, пер 8 
ана рал ата атта ТЕ Min: 
> help(adf.test, packages"tseries") 
Bh, 900. ѕегіеѕ n ЕН Жер, ЕП не тре И, 
"EARUM EE RIOT ВЕ HIE NI Sc Е. 


ILU AE GE PCM РЈ ТЕТ Тота ВРТА ТОРУ ВРТИ K 
Fi, ARR НЫН В 88 Augmented Dickey-Fuller (АРЕ) УЖЖ, МИТО 
те. 

> help.search("dickey-fuLler") 
РАНИ ЖЕ $ АРЕКЕ UH а, (fünitRootstiKüurcat2), ВИЕ 
БАЗЕ СИТИ 


tseries: 





Help files with alias or conceot or title matching "dickey- fuller" using 
fuzzy matching: 


fünitRoots  :DickeyFullerPValues 
Dickey-Fuller р Values 

fserles:;adf.test Augmented Dickey-Fuller Test 

urea: rur.df Augsented-Dickey-Fuller Unit Root Test 








Type '?ру 


PASA 


SICGR АЖААН ВТФ, EREB ИН. риже 
30835. ВАЉА AXE Равени. 


1.9 РАЊЕНЕ 
а 


ЖИН ТМЕЗ ЕККЕН. 


00" to inspect entry 'PKG::FOO TITLE". 
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валя 


Чар РАО GERE I BECA). 
> help(package-"packagenase") 
ийй 
ЯНА нын ШИЕ (ОНИ), LIEF HI FRA 


жалан. Kit, ERKELA, AE Mhelph ФЧ С 
вай. 


НІ Кһеірф ПД Шокезетез (ВАЖНЫ ЕШ 2 —) НИЙ 
в. 


> help(packages"tseries") 


HORE cH HREM, MERRER. ФЕЈ НИЛ МЛ, 
ET. 


Information on package 'tseries' 





Description: 
tseries 
0.10-22 
2009-11-22 
Tine series analysis and computational fimance 
Author: Conpiled by Adrian Trapletti 
a. traplettigssissonline.cho 
Maintainer: Kurt Hornik <Kurt.HornikeR-project.org> 
Description: Package for time series analysis and computational 
finance. 


R (>= 2.4.0), quadprog, stats, zoo 
its 





graphics, stats, utils 
License: Ф\-2 





Packaged: 2009-11-22 19:03:45 UTC; hornik 

Repository: 

Date/Publication: 2009-11-22 19:06:50 

Built: R 2.10.0; 1386-рс-тіпри32; 2009-12-01 19:325 
windows 

Index: 

NelPlo Nelson-Plosser Мастоесоповіс Time Series 

USeconomic V.S. Economic Variables 

adf.test. Augmented Dickey-Fuller Test 

ama Fit ARMA Models to Time Series 





21 иж 


l ес) 


Ва 2 tg r vignete — Hm, шіл. НОЈЕ ЗЧ. 
ik vignetelBAE RRR, ЕО ВОЗОЕВНЯ Е. vignette 


FERK PE ELE fI ШЕЙ. 
"Та i vignettefa ЕРА а (0 BC X HE О RI DC PER 
> vignette() 


ТИ IE fEvignette@@ ФН PG И, ИЕН vignette, 


> vignette(package»"packagenase") 
fit vignette EM ЕО РК, ИДИ көн. 
> vignette("vignettename") 


PRSA 


АКША НИ re fk PERAK Но са, ІУТЛЕЙ 


1.10 В PF ЭКН ВЕ Bh 


ia 
An DR ERU UR IS RE 9 ER 


МАЛ 


FERSK Hb (E iRSiteSearchiñ СЕТИ. 
> RSiteSearch("key phrase”) 
кина, ELA F ETE: 


hutp:lirseek.org 
ВИЕ Google А LARN, ЕЖ КИН НЕ. 
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 Aup:l/stackoverflow.com/ 
Stack Overflow TEHRE ЈЕ РОВОВА ЗА, ИЗПИТ. КРЛ 
жәна а ое А. 

http://stats.stackexchange.com/ 
Stack Ехсћапре 4E — 4" ЭТ ЙО АА А, (НЕЗНАНИЕ P 
LLL 


ию 

MEHRSiteSearchi& RMAF РИШЕ ВП, ЖЕНЕКЛІН IA (лир:зеатсћ. 
r-project.org!) WARIS. МИТИНО ИНЕ Ж, Зла е. Din, i 
ELLA F fr ИНК "canonical correlation" ; ] 


> RSitesearch( "canonical correlation") 


KEP US W АВЕО А ЖАНЕ В TECLAS Т.Д. {НЕ ЭТЕМ Ж О МТС 
жмент. 


rseek ота T W ЕМИ. RAE FER ТИК, ЭИ ЖЫК 
HOO REM ЕРИК. CEMRE НЕ ФИКЕ: ЖОНИ; НЕ. IGI, rseek. orgii 
ft) br hb r. CARR ОАЕ Жл ЕН Ж йл, 


1-32 ТЛЁЖгзееК.ог ЕУ "canonical correlation" RAHN. ЛЕМ 
ТЕО FH HL RE AF E, Tî DO TO ОМИН ЗАО В Wy Ж ERIS TOE 
ж. 

* Mft (Introductions) 

“° EHW (Task Views) 

° APAR (Support List) 

• ІІМ (Functions) 

• “ӘЙ (Books) 

° Mk (Blogs) 

° ТД (Related Tools) 

Bin, URE “МЛ” (Introductions) ЕК ЖЕН ЖЕН. m ЕНИ 
BD” (Task Views) Емайн- къжатижкневитин. ан, Жан "HS 


Ж” (Functions) АЖАН КЕНЕ. [HEX — e OSEE HEH А 
лежен. 
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Stack OverflowIE—4- Q&A М, EIP REEE, 2236 T MIS A ST 
DLE ü hisua s так. WRA АТО Н ЖЕ ЖЕЛЕК И 
Ш. KAMME AQRAR RERO GST ЯНА В, ЗЕЛИНА. Stack 
Overflow ПУНЧЕВ ИНА ТЫ ОАА ИВА 


Stack ОуегПом ИФ f REI fr fF ШЕШ. DR, (ЕМЕН ЖМБ Fe MERE PLA 
E “їп” МНЕ НАХ РЕНО НОЕ ВИВЬЕН. іп, ШЕМЕН “ІП standard. 
стог”, CHERE ARHAR HAR, MARIE IS Python KIC edi REVUE ВНЕ 
ыш. 


Stack Exchange (ifj lEStack ОмегПоз ВАЗА) Wr ГЕНА Wr QR AMOR. ЖСРДЕ] 
шинамен, AEE ЕГИ ЖЕСЕНИЗ А. ARAA — 
шатын ПЕНН — ГЕРІ 


PRSA 


пжижажавюв УЕНЫ, TUSE HE о EA IL, 
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1.11 SHAB I LS MRE 


ізі 
RITIL 4A EL, кши па E ЗЕ RO He 


RRR 

* АМ I Arp://cran.r-project.orglweblviews! WA Yir ff) ВЕЗНИ, FRAR SS T 
SURE AE, PERARAKAN. RAHE Ap://rseek orgi 
ж, инхитаж, па HE (Task Views) ЖА e ri НЕНА 
m. 

* — Vilserantastickd3d (Attp://crantastic.org) ЭБЗЕ MENKE. 


* Шире. ога ВАЗ, ЮЖ, Зе “ЖК” (Functions) di 
ж. тик. 


wie 

Ж-Е A ER DE RAP D ЕК. PRU OU R AX PEE EA Ue PR PTA РИО И, {H1 
ЗВ Uo ROIG ER CA нож FE. ERBE ер Ж Ж БЕ М.А НЫШ. У 
ЗЕНА ЛЕМ НИ? "Н БРИНУ DA KE T. RHEES, 1145 
ЕЛАН. 


TEA BAA И ЯГЫ 200О 4 $k ft GL GER ECRAN FRE, Eee Еа — ik 
кат, Дер TAHAE H ri R kf ока GER, ARUM ACA LIE 
МОН, "План “HFM” (Reference manual) ИНЕ, RPDF 
HERE (MRTOTES ГАЗЫ, RREN, КЕ 
R39). 


КЛОН SRA, падижон. HEREKE. за Gop kainin. 
СЕАММИ ФИЯ {E НИН Дт, СТИНОЛ. ЕН ЛИ 
ЗВ ЕАН, HOA АТО T RR EEK ива Дт. АЛИ Аир :/Исгап. 
r-project.orglweblviews/ RSE T КЕЗЙН, ЖАН "НОЖ" (Solution) "hifi 
МИЉЕ. 


BIRE ES О ЛЯ ИТИКЕ 9 Ж. ПИ ЕПА IEEE ТЕ. Взввир:!! 
cran.r-project.org/weblpackages!fi Wii R$K HHE RRF BFI, FE ВВЕР ПАН 
fk. 
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RASA 
SILK ЕВЕ ос Р, CER TAKKER ER, HORIS 
BPW http:licran.r-project.orglweb/packages/soslvignettes/sos pdf. 


1.12 #73 


[2571 
ба ЕЕ ОВС МЕЗА Ж Ж TREIE Ж. 


NORIS 

° ATJEhUpiIrseek.orgWlYs3148 А. ЗИЯ 00300. КЖ ЖЫН В ан "EMT 
УЕ" (Support Lists) RE. 
AB STELERAX PE АТИ. 2 RSiteSearchár Ф ЖЕНИ: 
»RiteSearch("keyphrase") 

ЖАТИ REHEK. (E “Target” FH 438 RV PERS EID М, 


ім, ЗЕРКАЛ ФИН, BUG RAR MN. 
не 


ЖА ЛОВУ — e EP HF PRE ENDE (I el НЕ {E AD HEHE FETE 
жж. ИЕМЕ ДЫЗЫ ВАНИЕ, RE RU R AS HR I EUST, 


ЗЕН 
CRANKED T — Ж PIL RRB, WADE: лиргИстап- 


r-project.org/search html, 


1.13 HAREJ KHE ЗЕ [6] ЕД 


юй 
dn SER ЕВ ИЕ ECCE TOR акта. 
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жалж 


"АИ" (Mailing Lists) ДЖОН —4-X-T EH “RWB” (R-help) ЖЗНЕ АНА 
ОБРАНЕ АВЕРОН. ОД T EAE ЖИВЕ ВВ 


1. ЖЕМаіп R Mailing ListPiTig] “RB” (R-help) Я. 

2. ВИА Anf S EARRA “RRA (Posting Guide) . 

3. Е SERIE. MEAE, GE — UMOR RESTO. KEEA 
STELLAS НИЯ SCIL. 

4. HERMITE RIK E r- help r-project.org.. 


Wit 

Rb fF pk — 1 BOXER, НАХ ӘЛЕН RUSO — ЖИ, OX 
шарала тата ғал тата Е, MERERI, (UE ВЕНА, 
BEM ESEH ааа MOARN A CLAUSI GG ЛЖ НУВ, 


ЗН Ji, MEISTEN LIE, EHR RIX E r- ће пр r-project.orglll'sT , 
атана тан Га], GENI ИАТА Е GB ST REA Qik p. 


An ffo РИ k i FREK He F8 Eb ТЫ НН R dE HUI 4984 ЖН, SHE GST n akta 
МИО А о. 


=> 
f Hk аса ИСИ ГАЈА, ЕВА — S ERARE, 


ARUS 
КОА ЗОИ ОД ВАНЬ АВ а HER, PL RV Па ERO ER 
ШШ, ИЖ АНЕ FT EUG, ЭСЕЛЕ ВСЕ НЕ О, dumpt ФЖНИЯИ DF 
HAASE, ЗНА АГАЕ ВН p. 


fell Н Ins, SEIN ЖЕНИ ИРА GU ЕДЕ MILA . 


WKE, BRT "RTT (R-help) ЖАЙ, БА ЕЛІ. ен, 
ВАЊА кез. де. за, REFR, HE 5R 
ЗНОС fE. FTitthttps://stat.ethz.ch/mailmanllistinfo EE ise МЕРЕ їл Ж. 
КАСОС Зак MEE SUR, РАТЕ IRE НЫХ E URINE RE, TERR 
ЛЕНИ. HF RED” (R-help) ЖЕ. ЖЕ ИЕН 
ХЕ, важханхважнтраважа слона. 
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35558 


НИ ЖЧЕШ ЛЕ ВОНИ, ВИ Rl Erie RaymondfüRick Moen й i 4% 
"How to Ask Questions the Smart Way" (fj Xr. 
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2 


ВИНА 





ил 


ЖИЛИ, ОБМАН, LOA TWEEN ЖЖ cS, 
ШИ, Ж EIR ITE SUE — ek Т0 ЙО ГАПИ, COSE Hr РЕ (GJ IM TTE T MR 
AK PERROS Жілік. iHe UG МР EF ВЕЧЕР ЛР BOR (КЕ), 1] 
кака еретик, менше T W. 





в 
тийин — Rod OU 


NORTE 

ДЕВЕТА ИННА CRGA, RIKE A AREER PRII, Е Преп 
Aceh Pr fi J ЕКПЕ ЖИЙ, {E Fic a tA BC REGE НЕША A FEL MG od e 
Кик. 


не 


диви пили ЖЗНЕ М. ИЖЕ КТЕЙ A ER БОА: 


> pi 
[1] 3.141593 


30 


> sert(2) 

[1] 1.414214 
P488 Adm Ева, КАЊОНА ТИЈ А аи рт ап ERR AUR, БИК 
ERM ФР Е@4: 

» print(pi) 

[3] 3.141593 

> print(sqrt(2)) 

[1] 1-414214 
print И (e T E NB ОИК Ж, 4045 — АЕ JUR MI ERE, A 
кілі 

> print(matrix(c(1,2,3,4), 2, 2)) 


ба] [2] 
праз 


€) 





OM 
> print(list("a" 
[D]] 

[1] "a" 


(21 

[1] "o" 

131) 

[i] "e 
Ж—@ UMOR, DOG PISTE ртіп ева e GI, {E маи Lo E 
TESTE AR, WD MCU IG PE FERT Be НЕКАД ШЕ. 


Архіпов с fi ЖӘНЕ. print A te К RE Ax ER. AMER ERA 
Sl HR. 
» print("The zero occurs at", 2*pi, "radians."| 
Error in print.default("The zero occurs at", 2 * pi, "radians.") : 
unimplemented type 'character' in 'aslogical" 
У К Ире EROR А, ВРЕДНО РЕ 
9 





> print("The zero occurs at"); print(2*pi); print("radians") 
[1] "The zero occurs at" 

[1] 6.283185 

[1] "radians" 


сан Е-Е Ертіп ОА. ЕЗГІ ДЈЕВЕ 
ER: 
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> cat("The zero occurs at", 2*pi, "radians.", "\n") 
The zero occurs at 6.283185 radians. 


d. cati BOB каганат ESR. ЗВЕНЕ, MILER (п) Ж 
залау 
са же кана: 

> fib <- с(0,1,1,2,3,5,8,13,21,34) 

> cat("The first few Fibonacci numbers are:", fib, "... Ww") 

The first few Fibonacci numbers are: O 1 1 2 3 5 8 13 2134... 


сат б ЛЕ RH HH ВИНА Е, ЗЕК ВЕЛЕНО Ж Ж, HEAR, 
lilia ti ЛР RR AMEE, перка. са бин oid Н F 
ж 

> cat(list("a", » 


Error in cat(list(...), fle, sep, fill, labels, append) : 
argument 1 (type list) cannot be handled by cat 


PRSA 
ATASEMA, явява. 


2.2 ЗЕМ 


T] RR 
da fp AE —1-% Ж. 


вал 


ивиша (<-) Ве. (WW ЖА ЕЖЕТ ИИЙ. 





xes 


vie 
ВНЖ “НЯ” вж, HERE. на, ЯНИЕ. Х 
ART A EH HHE PRAY T PEE хали. 


ERKE, FUER RENEE, ЛЕНИ Реж, RK 
жиен жені ИЕ. 
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“3 
ea 

< sqrt(x°2 + yn) 
ánt(z) 
5 


x 
y 
z 
pri 
1] 


EE, WWE TFS (O Rut C) HR, WAS Q 


ЗЕНА DOE ЛЕЧЕЊЕ, KERRIER чие T ЕЗ rb, HM LEE i е. 
EHRE, HGB IE RAKTEBEST REFEREER. ТУЖАН ЛЕ, 
TCR PM та ICE RE. 


R£kf t ЖАНА тез MERO HON ЕТЕР AE Xo Mnt 
Ж, шап ERAT ETE SL, EPRA #ЕЙЕЗЕ PEUT P103 I : 


> кез 


> x <= e("fee", "fe", "foe", "fum") 
> print(x) 
[1] "fee" "fe" "foe" "fua 

EIERN H, КОРЕНИ ES <<: 
xe 3 


ЗВЕНЕ СВА лол, EIAS AE ЛОРЕН 


MT Aci fr AR, НЯНИ. do SECURE re TER Ë HL W 4: % 9 
(=) ЖЕН. FEOF TECLEA ЖЕДИ. (<-) REIHE EST CL UE PH UC 
#8 (>), Емен: 

> foo + 3 

> print(foo) 

ICE 

> 5 -> fun 

> print (fum) 

15 
БОННЕ k Bb, БИ. SONUS 
Ший еШ. тїї: ILLE К, ЗЕН ITI EIC 
mw. 


ASA 


X FassigntB ӘДЕ, 14852704524. HEIME. 
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2.3 пити 





Тед 
f шй Н ви ЕЯ 
RHR 
EMAR, RAES. strit Т Wie EE В. 
ию 
15 CRT DI Sg И T fE E Пр Pr fr 11 9.09 6 g: 
I 
>f < - function(n,p) sart(p*(1-5)/n) 
| 





вж, яж НЕЕ ETE LE, Уфа АСЕ ТЖ. 4 
ПАРУ itti o ЕВЕ, REISE Ый, БАРЕ ФА 
"s 

> 10 

character(o) 
ЖЕ, ВИЛА ЖИЙ УНЫ, 156 ROK el — KE MOM TERR рада ВО 
тежка Е ЕЕ OER, 


иж тъжни ЕНЕ £09 ГМ, MARTE s. strt, i 
Boc ll d RI земи. 


> 18.810) 
+: function (n, p) 

x: пш 10 

y: num 50 

2: chr [1:3] "three" "blind" "mice" 


15.5%гй 9 15.54, ЖӨНЕЛЕТІН ЕВО РК, ХАМ 
МЕН Тек, 251215 ЕТ T FASE. 


Іза (.) кафета, DUE E R ЕЕ D ЕТАН 
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Bin ОКНЕ FUNIXRSE) . ERK, пана век ай. 


names CUL TRUE, МОНИ Ж: 
> „hidvar << 10 
> 150 
la] f зе "y" а 
> ls(all.names-TRUE) 
[1] "-hidvar" "f" E y т 


PRSA 


ЭЙ? ANTER TAERE, H1215 T mt k — ВЕНЕ. 


2.4 WREE 


[IE] 
каб А b IEEE E te, ЗАС BUT ONN dF. 


вал 


ФЕТ тик. 


We 
СЕКЕ ВЕНА ВЮ, ТЕН p Bth kU EL, тей е AA T eta HM 
Wn ан 

жеты 

Dl 6.285185 

> m) 

>x 

Error: object "x" not found 


Ф M. ПЕНИЯ. 
Vies TEL sn F fr It BMB £ TE ШЖ. 
> (x,y,z) 


ЧЕ "ГАЕПНЕ T. ЕЗУ БОВАРИ. rmi obti listen, БЕЗ 
инв ал алта азы аа EI E А, KERT A 
тен Ж лук, MER T. Eos [А] BUE ЖЕ Ж: 
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PRIED + 
> 10 
character(0) 





РАДНЕ ҘЕ 
АЗВЛАЖКАН, өлен Жте(1185150)0 Ж б анн я ж И АЖ 
жези кєл, ПЕЋИНИ LH И ТЕРЕЗЕ 
я, ii EIER CR. 








mW J 
зхршоз. 


2.5 + ЖП 
вм 


MER 3 


шал 
Aie. Arr RAE ROMAE ін, 


ию 
ийа НА ЮО, EXE IE TGR REL IH Ж ЕНА Ар, LP STELLA Ë: 
Паналау Га 


(...) ФИЛ Bic CTI: 


> Сара Fidi r2) 
[a] 112 3 
азы Бы sph, PD 
Bi. „3.141593, 6.283185 9.424; 
"Everyone", "loves", "stats. 
ме "Everyone" "loves — "stats. 
> (TRUE, TRUE, FALSE, TRUE) 
[1] TRUE TRUE FALSE TRUE 


Мис...) НОЈЕВИ HERK, Жас...) e RERO IHRER 








566371 
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> Vi <- c(1,2,3) 
> ма <- c(4,5,6) 
> (уз) 

(1123456 


HTT ARE, КРЕНА, Е i Rb a 
ERMEER, ВЕРЕ TIRE REG ШЕНОН: 


эма c с(1,,з) 





жа, IP US HUC А EE R ЖОЙЫ — РИМЕ. Янев 
шарана лала ааа атте тоттан 


hit EKU, МНЕНИИ — 1 а REO Ж, CET E E IA HE I XY 
(mode) , (9[413.1415/0"foo" 2 ВОИ a TES 


> mode(3.1415) 
[1] "numeric" 
> mode(*foo") 
[1] "character" 


ЕЖЕ ЖЖ. № TERKO, КЕКЕ 14158098 24-07), 13.1415 
ЦЕЗАР 

> €.1415, "foo*) 

[1] 73.1415" "foo" 


> mode(c(3.1415, "foo")) 
[1] "character" 





же. салаат, KERRAN FAR, ММ BEN TCI IC іш 
JA ETRE AMA улея в. UG cr FIERA БАН 
м. HERE, 


RASA 


ЖИВИ КЛУ. HEARSE. 


2.6 VE SERE EHE 


[2] 
fs e IRS РЕНИ РАНЕНЫ, ЖИМ. неби. HEE, HE, Нови. 
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наћи 


n КЕНІН, Жох, УБР: 


• mean(x) 
> median(x) 
` 549 

. varo) 

• соҢх, y) 


° сом y) 


не 
BRK ARA PEU СЕДЕ T HR сине неизв" РУ, MORI DD 
ЗЕ МЕН МИНИ вина. 


алата НК. 


жіктер, RIS LU А ВЕНЕ SE HUE EE ЈС ЖӨНІНЕ. kt, HME 
Е-е, Ti AROK ИНИ. 





[1] 11.03328 
> var) 
[1] 121.7333 


Эст зд СРИ НЕБЕ, мати ИН. 


сог ЛЖ соу ЕЯ SI LEGE Ria] REG ICI OT Ж: 


> x €- c(0,1,1,2,3,5,8,13,21,34) 
> у € logoa) 

> cor(x,y) 

[1] 0,9068053 

> меу) 

[1] 11.49988 


ЕКЕ EHE TEMA (МА) ВЕ. МЕЛ E ROBO ТАНИТ 
ВОВ МА ЯЕ, ICs ГНЕЈ ЊЕНЕ НИ Во НЕ: 
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> X € c(0,1,1,2,3,4) 
> веап(х) 


[a] ma 


MARIER T le Ae ARRE AHRR PAIGE, REDRE GA 
PRÉ, ЭРА ВИЗ R r kt E: тала талады RNAI 
HORT URGE, BARKE IRR RE ER, ЖЕ, МИП SK 
na. m-TRUE, CARA ft le Ac ll ~ 





[1] 2.140175 


mean Ж fs до BE TS НЬ РИ СНИ НЕ ЖОЙ, f h HEEE ne НУ — PLU Db AE EL 
Ж, ЗАРА НИ GERE LER, FON TF GR T meanfüs ЯК = ЈИ Bel ict 
НА: 


> print(dfrane) 
small - sedium ыш 

1 0.6739635 10.526448 99.83624 

2 1554619 9.205156 100.70852 

3 013250562 11.427756 

а 0243595 8 

5 009107692 9.763317 

в 

7 

H 





2.1739663 9.806662 

1.6187899 9.150245 

0.8872657 10.058465 
9 1.910080 9.182330 
10 0.7767406 7.949692 100.49814 
> mean(dfrane) 





small medius big 
1.245040 9.560325 99.946003 
> sd(dfrane) 

small medium big 


0.5844025 0.9920281 0.8135498 


НЕК, meanfüsdiB CIE ІЗІН. EO KUR EZB B Heb — Ва ЈЕ: 
(Rib, ЕХАЛ TH LA STORE Па OB IER, ЈЕР те names и 
НЕНА я ааа 


мага АВ ЕЛЕНА ЖЕНЕ ЖЗИ, (АЯ пеап а ЖОН FRE. мат ЖО 
SES PRAE МН E, ЭНД ВЕНЕРА El Ж: 


> var(dframe) 
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small | medius big 
small 0.34152627 -0.21516416 -0.04005275 
medium -0.21516416 0.98411974 -0.09253855 
big -0.04005275 -0.09253855 0.66186326 


mHE, ando — СЕ i SUPE, WicorQo E РЕНЕ ЖЖ ОНИ, ІШісоу(х) РОС 
HRE: 


> cor(dfrane) 

small medium big 
small 1.00000000 -0.3711367 -0.08424345 
medium -0.37113670 1,0000000 -0.11466070 
Ыш. COMM һр, 109090000. 





small medium big 
Small 0.34152627 -0.21516416 -0.04005275 
medium -0.21516416 0.98411974 -0.09253855 
big -0.04005275 -0.09253855 0.66186326 


педтапо ЖИВИ ЖЕР REI GR. TERR REGE Rp ONG ERES: 
6.4% METH. 


RASA 


#8 42.14. 7:648177:9.17. 


2.7 Е 


Te] RR 
ви Ч. 


МАЛ 


ЖЮН ЖЕ En: ЕН А ВОЙ „па n42, на ‚т. 


> 155 
[1] 12345 


ЖНЖ ИК, ЭЛЕН зеді. 


> seq(from«i, 40-5, bys2) 
[1] 135 


I rep ER СЕ ik H — УСО ü Wi RH CH 
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> тер(а, times=s) 





[111112 
не 
HSER (па) AERDEN nana, 
> ог 
бјолазаз67в» 
> 20:19 
[1] 10 13 12 13 14 15 16 37 18 19 
эзо 


[19876543210 


ШЕ. Баија AGAS (9:0) , REPERE A ЭЛЯ BIO K Роке k tr 
я. 


W 38 WIDE E НЫНЕ ТО. ед бой ЕЙ = ЗЕН ЛЕ ВА ТЕЖИ 
шй. 


> seq(from=0, 10:20) 

[1] O 1 2 3 4 5 6 7 8 91011 12 13 14 15 16 17 18 19 20 
> Seq(fron«o, 1о-20, Буа) 

[1] 0 2 4 6 810121416 18 20 

> Seq(fros=0, 10:20, by=5) 

[1] о 51015 20 


MIRI, А тата M HH СУ, REK HES НЯНИ ER: ЧОН 
жк: 

> seq(fros=o, to-20, length.outes) 

[1] o 5 10 15 20 


> seq(fron=0, to«100, length.outes) 
[1] 0 25 so 75 100 


AB seq P Е BOTE RE UNE NC. RIKE STCUE HR АЯ PROM ROK: 


> seq(from=1.0, 10-2.0, length.out=5) 
[1] 1.00 1.25 1.50 1.75 2.00 


RAST, ВЗЕТО ЈЕ UIS BERI, МИТО Е гері. КИЖИ N 
Lama 


> rep(pi, times=5) 
[1] 3.141593 3.141593 3.141593 3.141593 3.141593 
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»взя 


GEAR МАТА WERDET. 


2.8 вие 

[E] 

Anf REB ғын, EE PLI BHO оле ОТНЕ, 

МАЛ 

HARI WAY (==. 18. <. >. <=. >=) ВЕЯНИЯ REIR жаннын, жаманат 





ұлар аты 5 — RB ROBT, E EIA NUE ааа ПОАРО AE 
кий. 


не 
ПЕН ВЕНЦИ, TRUERIFALSE, ФЕБ а АТГАН BOR Ж КШ. (Boolean 


values) , 


ЕН а TT НЕВА MC, ЭКИНЧИНИН CK EI TRUESRFALSE: 


за өз 
зар қиядан 
[1] FALSE 
ЕЛЕКТІ) 
[1] TRUE 
>a cpi 
[3] TRUE 
>a> pi 
[1] FALSE 
>a cpi 
[3] TRUE 
> aspi 
[1] FALSE 





fca PA Ë IRA PE — Dc HE HOHER ер Rtt НЕВЕ, РЕВ I А НЕТО ЈЕ 
ЗАГИНЕ, ЕСД НИ ЫЛ SOR КЕН Ж: 


эм сз, pi, 4) 
эм < сірі, pi, pi) 


әуен * кешт GORTERIA 
[1] FALSE TRUE FALSE Жоан 
Бун 


[1] TRUE FALSE TRUE 
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руки 

[1] TRUE FALSE FALSE 

»vew 

[1] TRUE TRUE FALSE 

[1] FASE rst TE 

тузы 

[1] FALSE TRUE TRUE 
AB РТН l k ts — ДУ EET LESE, REHE АЖ ЖКУ Ж — HL EE IE БЕНИН 
Өкен. ЭРИН Ж МИА ЯН урал, ПЕНН НЕ ЗЕ НВА MCI A ТЕЖЕ 
АЛЕ А ТІСІ ПАДИНЕ: 

> v € c(3, рі, 4) 

> v == pi ОС унн 

[1] FALSE TRUE FALSE 

>v lepi 

[1] TRUE FALSE TRUE 


GAREM, @ 0704553. ) 


алата Азиний EET ARP танталды татты 
TRUE. УРЕДБЕ А апуба ЖЕЛЕ LR. Ae HR CIE RETE AIT RE FTH 
Jpn ЖН гр TRUE, Юапува IG тво, ДЖ твое, Walli 


MGREITRUE: 
> ve cQ, рі, 4) 
> any(v == pi) * Кореа — РР, ШОН ТЕШЕ 
[1] TRUE 
> all(v == 0) * vil ob BORGO Жо, WERLTRUE 
[1] FALSE 


звзая 


BUHAI. 


2.9 XE BUS Hi rh cx 


те] RR 
dni UA gh a 


вал 


ЖИЕ ВИШЊЕ: 
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° жй жЕ НҮ ИЕЛДЕ 9 ЖЁН ОЖ. mv [3] КК T vis k ht => 
ж. 


+ ЖОНШАР (-) , НИКЕНИ ПИЈЕ. 
ЕТІ рта 
гете 
А 

зе 


МЕН HI CHE ТО ЖАЙ) У. ах. едва В, ВИ СЖ 
MEAS UAE UI IARE RESTE СЕ) : 


> fib «= c(0,1,1,2,3,5,8,13,21,34) 
> fb 


101212353223 
> быз] 


ик, РЕЉА У (ORTH) 201, d EXER ЧА pO, 


BIETARA ЗА НЕЧА А PME ОЖ. ЖЖ, ЕНІН 
ACE] Wee BE IH ИҖЕГЕ rh Ж 

> fb[1:3] Ати 

fori 

> fib[4:9] СЕА 

11235832 
1:33 fJ) ВЕЖЕ ЖЕНИ. 2. PEK, ш ЕВ. ЖЗ LA E 
я, ЗГОДНА ИЧЕРИНЕ Ж. dn ЕВО, CERRI, 2. ARUBST TCR 

> fib[c(1,2,4,8)] 

f] o i25 
RRR EMER ERER. ПЕЊЕ — 1. ЖАН НШ 
а : 
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> fib[-1] + ERGR—ÁGOR 
11112355523 


ЖӘНЕН URS IURE ОПА АЕ, ВОРА“ ROG HEAR CR 


> fib[1:3] DET 
роза 

> f[-(1:3) — š жено, MH MU SC 
[2] 2 3 5 81321 34 


XE SILLAS 8 A ВЕР Rer E НЕЕ. 1546 29 E АШ ВОЕННОЕ 
Шал А RI Jc e 


> fb сад * чай флаш T 308 Uc TRUE 
[а] TRUE TRUE TRUE TRUE TRUE TRUE TRUE FALSE FALSE FALSE 

> fblfib < 10] жаа ТУ ЕТТІ 
(10112358 

> fb XX 2 me 0 ИСЕ Е РТА 


[а] TRUE FALSE FALSE TRUE FALSE FALSE TRUE FALSE FALSE TRUE 
> fib[fb XX 2 == 0] в ЕЛИН MP OU 
Шог 8 з 
ТИЕН, ОТ EO He I 5 IC HIR GI E ERG анален Hie Pd 
кар Рок ЕТО HERR. WISE тежи, HEIRESS) . 


НЕ, ENBER МАЕ, SICUTI IP В Ф КН 
fie: 
МЕТРО 
УГ v > median(v) ] 
ае РАИ ЈЕ. 
У (v < quantile(v,o.05)) | (v > quantile(v,0.95)) 1 
STEP AE T SOIT PR FO e ИИ 4 
У[ abs(v-mean(v)) > 2*sd(v) 1 
ДА HET NAIR NULLA ТЕ 
МС !is.na(v) а !is.nu11(v) 1 
Жз езін А РСК. CERERE папе е. ВИЖ 
ана ла алата О НЕ ЖЕНЕ ВЕНЕ LEA EIE Ж. 


> years <- с(1960, 1964, 1976, 1994) 
> Rames(years) <- c("Kenmedy", "Johnson", "Carter", "Clinton") 
> years 
Kennedy Johnson Carter Clinton 
1960 194 19% — 1994 
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—НЈЕЖИ A FREUE Ж, ИГЛЕ КУ UB LP TCR 





> years["Carter"] 
Carter 


1976 
> years["Clinton"] 
Clinton 

1994 


SLA ME” вик а ЗНС: ВАХ E Ж Е аа R: 
> years[c("Carter" "Clinton")] 


Carter Clinton 
1976 — 1994 


PASA 


Ai X RHOD A, 188972453. 


2.10 Я 


[2571 
Tii RENE LR ETE. 


МАЛ 
AR RAE RTT STCUR FL ТЕЖЕ FE MORI. HF £ IEE HA DARE tk 
жынға. ЭНЕН QAQ UAR 


Wie 

ПЕРИКА — KHE, FH Ж ЖК Рза РАНЕ УАН А Mop, oes е 
TER ЛЕ Ж h ЖИБЕ ТЕЖО ET VERE, BO h ЕН n REDI СЗ НЕТ Me kis 
5. 





> v €- c(11,12,13,14,15) 
эмс 234.5) 
[1] 12 14 36 18 20 

[1] 30 10 10 10 30 

РБ 

[1] 44 24 39 56 75 

НИ 

[a] 11.000000 6.000000 4.333333 3.500000 3.000009 
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[1] 1 4096 1594323 268435456 30517578125 


VERS. fiU AA OR MERO Fe атала тата HARI M rh иа REA IR 
РИ рабо 39 


О ЛОЗА, шаянын EKS ROTHER: 


B] 2 4 6 810 
ум/а 

[1] 0.5 1.0 1.5 2.0 2.5 
ЫП 

[1] за 91625 
ъгли 


П) 2 а 81632 
бі, НО O JG Sr IERI A MERE JC TC RO UG TT Ж. 


РО 
[112345 

> mean(v) 

[13 

эм = mean(w) 
[a] -2-1 0 1 2 


ак, F LA i i HH ОСУ Ж: JC 3) (A ЕВА АНЕ ЭЕ, ЕЕН kE CIUS Ж 


(z-score) 1 


>w 
[1] 12345 
> sd) 

[1] 1.581139. 


> (w = веап(и)) / sd(w) 
[1] -1.2649111 -0.6324555 0.0000000 0.6324555 1.2649111 


иа сж ER. VETE e НА МАН НЕ. #лзагї 
HR BCRIlogiR Ë, АВАТ RET E E Rob f Ape cd. EDU GUERRA LAUR 


>" 
1112345 

> заг(м) 

[1] 1.000000 1.414214 1.732051 2.000000 2.236068 

> loge) 

[1] 0.0000000 0.6931472 1.0986123 1.3862944 1.6094379 
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> sin(w) 
[1] 0.8414710 0.9092974 0.1411200 -0.7568025 -0.9589243 


ВА ЕЖЕ. BTR LOR ACE PERO БИЕ, ЈЕ ВК 
тиан тж ір. кажете, Ж-ға 
ши, а а ЖН НН СКЕ, ЕН UHR SERO FERIAS ЕЙ 
m+. 


»взя 


манін а AE ИИО — ЧН, 853. 


2.11 БИЯ 


Ta] RR 
НЯНИ, Иса аа татар TTE UC AER ВВ, 


ал 
КИР WE C РИС АВИ {К ЖАА # ПЫ ЖА МЕНЯ, dr ЖААЙ 
ART, БЕНИН ЕЕ А НЕЕ w. 





жал, ВИН 

ERE ex за 
LIE же! 229 
: ЗЕ ЛЕР 4 

зе жж. скат 

= MEER (MERE) 

s» ЖЖ Е 

: Grut) дал, 1.14 
Запух вият не 
“/ я. № не 

+ - жы 

= l= €» айт 2828 
! жек 

а aa GR 5t . НА `5 








23. ВИННИ (SE) 





и ех жж 
‚п тШ 87. 

- AX Епл 
> ә» По 322 
- щи СИ) 222 
€ <<= щи (АЕ) 272.2 
? "n Jii 
өне 


FAP CER eb lH iz УНИ UC R t s RRNA. ARE I ROGO MR, ші 
PRERENDER- У НЕНА O-n- ПАЯ, (Roe RE 

> ne 

> Omer 

1130223456785 


VORGAAUE —1-п- IKA, ARKE ЕЗИНЕ (0:0) 71. 








ТИЕ ЯВ EGO PITE апух, Reh ИН УЕ РУ ОЗА (x...) ЖЕ 
ЖА. Reb BUE Жїз Са И НЕ A жит, 
x 
иа 
хх 
Li 
хх 
жиы 


Zin% 
шыр геу із есте ТЕСТІСІ 


Кая. аж АИ ЗЕЯ, #1219, ЖЕТ АННЫ 
ша аа 


RASA 
а ату MENAR, SANESI, ЖЕШ 
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МОРЕ, #1219. ТИНЕ RORIS ИВ DUI, № 
ЗТ (R in a Nutshell) (O'Reilly) BASAMAK. 


2.12 ЕХАЖ 


јаја 
Са 


URS 


Ивет Function, ЗОО 8 Ж С АЕ ПА ВСЕ. ЈОЖЕ Е, 


function(param, ...., param) expr 
НЕКЕ RARER, ААА ЖАЛ ЫЧ Ж. 


function(param, 
expr, 


parom) { 





өрт, 


) 


пе 
же хана ке "BISTRO АНИ. ш, КАКВЕ И ВЕНУ ЯНА 
жк, МНОГОЕ ва и Е: 


> си << function(x) sd(x)/mean(x) 

> ev(1:10) 

[1] 0.5504819 
WELT усмі ва, ЖОБ, DLL: ПОЕН, ie ON e 
MS ВСЕ fere a d sd (x) /пеап(х) il T LEROTGR IRR. 


жуажа, Зипел EFE (TRE IE ку EMNE, Ше ПРЕ арра унио — 
Жек (B2) : 


> си <- function(x) sd(x)/mean(x) 
> lapply(ist, cv) 





so | #2 


НЕШ GLA ВЕРОВАЛИ ЧЕ НЕ ЖАН ЖИ ва Вон ТЕДЕН НН Ж И, 
тих — 8 % ТЕЛЕ РА ЕО НЕ K ККУ. 


t 
a) 
алыу) 






> gcd <- function: 
+ if (b == 0) 
+ else return(ge 
+) 
к ЗАУЗЕО E. IE AE W RE ib fi ЧН Е ИА bg h (IECUR LO 8 
Ж. МИЯ ТЕ ЖГНЕ vii К EO Lapp Lyr о-ви, ii ORE s ER CIC 
ВИЕ ЖЛарр1уж жив, Wifi ЊИМ а НЕ: 


> lapply(Est, function(x) sd(x)/mean(x)) 


Шамал ИЧЕТ ARIA ЕН АЕН ER BAR PLUR GC ЗЕ ТАЕНЕ, FT 
HJ TERM: 
ЕНИ 
BU ER t ОУ ГАК ЕРЕ ИЛА ИН СИЛА 
return(expr) t $ 4¢ H КН e ft 
Mii 
HUSKE “Ий” — À iM ictor T ico ode elc, BCE АЕ УНЫ, AER 
ЕЕЕ 
СЕЧА 
шытын таты Р АС, ER cH ROG UL IDE RE e IA 
AH T 
КИНА ВЕНА), Ж 8 И ЗГО Е Һер (Сопего1) 62-441, 
MEKIR 
ВИНА В fori. ића тен И Атереа ИКИ). ШЙ ГС 
help(Control)ér4 e i. 


AERE 
как, ТОА сс HETE KECE e Ky CDU, UERBO НЕЕ. 


ARSA 


МОМ ХАН. ÆI (Ап Introduction to R) (nttp:l/cran.r-project.orgidoc/manuals/ 
R-intro.pdf) HI (R in a Nutshell) „ 
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243 UPS ЛА. тате 


юй 
fo FRA В Ф, EFM G KR АЈА — ва Фини. 


WORT 


TIJE— IURE п MERIT UTOR FCRI жк, FIRNE DL p Еф, 
ТЕТИВА ВЕНЕ КФ. 


хазна. MOT DUE BUR (r4 (EOS THIS CIR, ЕТИМ. 


не 

ВЕРЕЯ ЕСИ ЛАБ, АРНЕМ. SADR, MT HERME 
Ans Af CE, bd Ae WC In MAR GARS, ВН, Єй ЖЫЙ АННЫ (EH e 
HE) ив. 


Ий £809 JH ИЖ Я А.М Жз АЗАС, ИСА A IU ЧИН ТЕО 
ж. TERK E 4 fi t H ажым, (bl T rdi MN. нит 
ЖИИ ЖШН Б h, EDUG ЗЕЕ NDA ASR, EIA TERRE по 
жіне. ЦЕЖАН. КИ Тана AXI $. mee Ж (a fO RET 
ВАК, ВВОЖУ, 


fEWindowslOS XIE ӨЕ, RIH ¥ TO) —#Е ЭЙЕ X iy y Hik hh T fE 7; X. 
PW AQ ГІ 
ERN, k XEF" (File) — "ЗТБ" (Мен). 
фита аан г фале + 
ЖЕЉЕ (О ИЖ НАТ —1т@ Е, ВС Вт. 
HIWERA POETAS 
MARE ЯА ТО Ф, СКВ. 
HETER ARBRE 
СИАМ AE BI ПА е Ф, СКТ. МЕТЕ ЖИВИНЕ а 
487 (Еди) — ЗӘНИЖЯ” (Run all) . 


Mtn A FEE п HEG Фя яажа АС ЯН Ауы ИНЕ ЕП. 
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жақан, Егина ска, АТОСА НЕВЕ ИМ, RD 
TERMI CIE, 

Жалыны СК PUREE, ofr ade oe pope ВЕ RAR 
ЖЕЛЕ Е. 

ВИТЕ, MERCER, DUIS BORA MUS (EBORE IE DR, > ЖИЕ Ж 


МИ @ 4, Ic RAT FROM ЖЕНЫ O, FHKE ФМ М Ж. dn 
2-19. 

















821. HO SIRSSIRE TORIO D 


Жанн ЇКЇ) @ SHEN OHA AS, СТ PEA I ЕЕ R FRA Е 
ЖЕН F. RTE мж He ñ ЖОН E M HER Eh, РИК RE CIS 
ОВ ИО ТИ 


ALL Qr РАНИ ПИКА T. RAPRA тле, dona 
НЛ. dE S ~ER? MARRERO, HEBO EE тон, Рија 
дивите N HMH. 


зам, MAIER T UR. RHEE PORTE (ШЫМ) жн 
КА RECO BE re, HNMR в-к. A Ез—»лжй> т. R 
С РОГ са СЕВАРА ЮНЕ АН ЕЕ 
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82-2. d REED ВИ АВИ О DOSES 


2.14 ЛЕ 


а 
КА ТИ ОР БОМОН Zoo fM 


ий 
Fili JE — dz йт RED : 
WU EH Cit ma t 
ЧЕ MCI ERE К АЈ Е ЭНА, Dn. ОЧАИ 
> 10 
Па] Se тут ат 
ща. шк Во EM T ЗОЛОО ААТТАА. HM, R 
AH De ILE CIE GL. ЗС tfi F RE IRE 


ЕЗ 
function (name, pos = -1, envir < as.environsent(pos), all.names = FALSE, 
pattern) 


if (Inissing(name)) ( 
nameValue <- try(name) 
if (identical(class(nasevalue), "try-error") ( 
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nane <- substitute(name) 


(etc.) 


ЖЕ A Windows ВЕК X BE ER E ic НІК SEL 
Dni Ж Windows f 0 Агезеагс"\Ыо\аззау. зу Xft, БОЉИ 
т: 
> tl <- read.csv("F: VresearchWbioVassay. csv") 
ЗЕТЕ АЈ O) MARREL, РАВЕНИ ЕН. ви, важи 
FATE BIMDUF:researchbioassay.csv, КЖД РЕЧНИ. МУЖ НОЩА. 
% 7-7 Weg» ce (BR) - 
МИ 0, (Eat; orla mn 
жен # 443.1415926.. RIA Fx 
AV Ий f НЬ, WORE A SEAT 
»xc-pi * RUM BUE ө-т. крема. 





ERRARE Hiin- рї), EHRE, ЗА CERTA. ok Me) 
анна алта ыы 7 


>же-рі 
Error: object "x" not found 


ЧАЕВЫЕ Хх, МЕДА НЕНА УЕ ИНИ, TRUEHERFALSE, ЗЕНОН 





HUR AB ВЕРЕН T HR, СДАНА HEE RP: 
»xe0 # SOM X 
>ж<-рі $ AW 
[a] Ризе 
МАЊИНА Re 


кана ЛЮ, СЕАТ. CAA И РНК REMY 
ЖӘ. ЛИ КТЕ ал, ПРИ ӘЗ ЕЖ, FIE 


Мако жт. 
> total < 1+2+3+ а ЕНА 
> 4+5 
> print(total) 


[a] 15 


Te CE ERECTA А ОЗ ВЕ, када ЕЕК АСЕ ж. KRA 
BRE: 
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> total <+ 1+2+3 ате 
> +4+5 8 жоба, пиана 


ша 

> print(total) 

[1] 6 
PASEOS ПЛЕМИЋ E а: — ЖЕН TARER (>) тя 
ЖӘНЕН Ат (+) +< СЕРАН Та + ЭК Ж, 


BET MARIN ЖИНИ, ТРАВЕ ПА ki ЛЕ ЛЕ niq p А, а ВС 
REFERRER, 


ИВЛ == 
NEFS (==) ЕР Д ИРИ РНЕ. пирова (=), W| 
AFEA STO WERE ТОКО ШЙ. 


> Vv == 0 в ЦИА 
руно в МИН МУ, та тих 
ЖА: (и) H:n 
Mi SERERE ДЖО RERI, 2, л, п + ВО, (UAE Emi, ОК 
КАЖ, 2, ..., п РЖИ ВСЯ], ВЯ], 3, ..., n, n +1, MERK 
ЕТ ап) а. ТУ A DESEE 6 ОЖ ERI UBI SEO HARE 


snes 

mt 

1123456 

> ае) 

[8] 123456 

И EE 

FURIO Е НЫНЕ, ERR RERO K ЛЕНИН САН. Ri, ЧЬИ 
HT ELA кака. МЕНЯЛ. Ж T Dj IEUURGE RESTE 
ж, ЕТНО ИННИИ, ДИЗ. 


ЖЕ TAH {AEF тату теди те) ФА ИЫ 
ЗЕНА ЕН b. БЕН ЗА. GORibrarystrequire 
ВОЖЊА КИНЕ. БОК. RERA R ИЕШЕ 
жана. MINE 22536. 


> truehist(x,n) 

Error: could not find function "truehist" 

> library(MSS) в ндо АИК 
» truehist(x,n) 


аня [1] Жан], #82 
Біз «ғаны ЗЕТТЕУ ВИ АЗП ВЕ. 15 [[п] ЕЯ 
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Фаза лов. зи JUR DU А и En око ЯК. RHR ВЕ 
SEX. #8 557. 

алат, я EA 
A53 ЛЕ ЗОВЕ ННАТКЈЕ ЋИРА ЕЖЕН. #1429. 
5855] [TES НА уфы 1 1el 4] Е 25 Ub. ЈЕДИНЕ ОВЕ А ЕЛ 
MEBER AD AEH FS, PROCHE Wik ВЕНЕ. {Н ЗЕ ROQUE 
ШІМ, УР NU STRE Ж ЖН ЖӘНЕН Ж. DRUCBRAERDAE СЛЕЗЫ, ӨШІН 
fe UE RB E WERE, 

НЕВЕН ST EK 
ЯР теап(9,10,11), ИА НИНА REHA? REITE, mean 
БОРИК ОНИ, IET. Леви. 
ЖЕН, Шпеап, DUE EC. ILHAN, птах тіп, ШІ ЖЕЗ 
павзк, (EBORE C УІНЕ. «ЕЛИН, КЕННЕТ W. 

ОА тах Урпахй И, s #ifmin Әртіпі 
па £$ ER, НЕМ, ID Big fe eb iñ Rak MG. 
pnax ipmindi £$ ERK, (I3 FLÍCIE 4 1618. "Xt de ФЕН TERT RC C 
ЖОМ, #274129. 

JAEN JD ИСНЕ ИК Ж 00 ЛЕЯ BC MG ВЫ 
Ai t ih MEUS А А НА ДКА MER IIO ВИР РТ ТУ NH D GE FF 
HR, МАНА ñ 0086 Ж, пей теат Э REX НИ HUNC, xW ER BC СИЕ, 
HE ИСН 14 55 E, AE IRA HAT PHA HE & PHI ИП Ж f t 
Ж, ПЕЋИ RATER, 
ЭГИН, ЭНЕРГО САВЕЗА HERI], (inii meadian. max. піп%, ixte 
ttp fi pl) Ж в, Eak ikuti WO ЕРИ ИУ 
ма. INC, {ЕНИ}: ТА 

КС ИАЕА У О BEM HAZE hak ils 
FERRO, ШЖ: ЗЕЙ ИНЕ А. RI. E ABE EIR RRS tack 
Overflow в KR, аян Абонат. RET, rtf 
енн. ШЖ, кг АА ААО НО ЖЕНЕ. ERB LI i 
142, 


PRSA 


ПИЛЕ 12. HE29, 204553182552. 





denn 157 


взе 


Виен 





кви — E JE MEI ЛУКЕ. ненхехтаа-н, RE ЕВА EET: № 
W. «ли. WW. ДЛИНА. ЖЕНЕН Hsc oxide eds, Ж 
ЗЕРНА. НИНЫ, CRNA m fs] ERI PI АИК 


3.1 ЖИІ = T TERES 


а 
Te SECRET. E ER, шеватичитенж. 


RHR 
Фен 
Преса OK or I LYE AR, M Нена НЕ a Н Ж: 
> get) 
[1] "/hose/paul/research* 
> Setud("Bayes") 
> веб) 
[3] "/hone/paul/research/Bayes* 
Windows. 
MERMER “ЖИЕ (File) — “ELAR” (Change dir...) . 
osx 
ЖАЗАМЫН “ЭКГ (Misc) — “ӘС ЖТФЕНЖ” (Change Working Directory) „ 
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AFF Windows ft RIOS ХЖ%ЖЇй, Жаацхемаяпювазтечинж, BE 
BOET У ог тоа Н ЖП, 


не 

ТАН, МЕН A коза СИИ, ӨН A Bf X 
fF. ТУРА Е СР, ДИТ. ЧЕН, Ш 
Жаға аа ағын. AERAR RER ECHO HD T fE Н Ж. s EH ini on 
НОЖ XEM, к ЖООН F SWT fE H Ж. 


ЖОАО ТЕ FOROR Ричи зак. АКРИ. 


HRSA 


iX Windows F МИА ЖЕФ. BLAS. 


3.2 RELSE 


ізі 
Td SHEILA RIDE ЕСРИ TEEN. 


МАЕ 


Hl save. паре t: 
> эмеле) 

ию 

ГЕЙНЕ кто КМ. JE ЕЯ ЕКЕН а BONER, СИЕ 

Шала GE, VERIS RARUS, ZERRE НН НЕКЕ. 


Ж, RTE таратады а тан OG T FEE, HAR ATENE REOR Е 
CASS, Bj 1E (RARO ЗЬ M AER SCR ЕК. HBT IH save. іпарейа й. 


TES Í] fF e F PHI PE E CERO — i А прага Еф. зц куда, НЕЯ. 
RTRA, НЕВА ЛЕНЕ. 


TRIE, LESE Ж АЕ НИМ УРОН, кке А, ЭЗЕН. 
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таныу жеккен. ЕНЕ. (ЖҮРЕ НЕЕ SIISE (UR C 
в. 


PASA 
ЖАНАМ ЯР LES твоя, 807412, ХИ ТАРА ЖЕН. ЗИ 
за, 


зар фи 
T] RÀ 
fis Hé EMO ие. 





вал 


(ЕЛІ ЕРИК Стърт, НЕГІ Zr IWJ. Ж БЕЛА пі 5 tory же е НОЕ А АЗ 
fr. 


> history) 
не 

history AMA НИО, RU RORIS A. РЕП ЖЫН % 
ДЕА 


> history(100) # Show 100 most recent lines of history 
> history(Inf) # Show entire saved history 


арына етіп, АЯ КИО ФТН ВЕНЫ, H РТА) 
жены АИ, ipd OR в. 


Wn CB UIROS, Вейл в фа. Кени Ржева ел“ iW T. fE H 
ЗЕЕ — ЈА А Rhistory ОСЕ. "ПАН ХАН ТВОЕ, НОСИИ 
Ж. EREMAN. 


3.4 ДЕЛИ 


[IE] 
TERI А. тахан иа, E TRARRE — Eh, 
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SORTIS 


ВР — £5. Last.valueff/feYEAE lt, EARE РИНО ЗОКИ. (ЕВА КВ. 
М, ЭН E RED CER IE E UBL 


НЕ 
АРНЕ A —B Chik. «ВИ MARKANA, хала врт 
KEMERE. BEME, МЕЗЕ SER ACC ААА ИК, 
TO Zi ЙИН ЈЕДЕ Last value? Rb, 

> aVeryLongRunningFunction() а Oops! Forgot to save the result! 

11] 147.6549 

> x € last.value 8 Capture the result now 


[1] 147.6549 


ПРЕДЕЛЕ, АНА А. #3 GS. Last value сира исто. DRE REED RE 
CMER. HIERA ВО ЖЕ ЈА А PIU ЖЕЙ ТҮ EIU HORS, ЖМИ КЫ T 


звзя 
пана, BUNS, 


3.5 BFR RHE 
DE 


f fe БОЦЕ ИЄ HH. 


RHR 


ІНЕН ВИ зеатсћен Ж: 





» search() 


ию 

ВНЕ SI ERA ИЕ ЕЛЕК НЕШ И, МАНЯ а ЗЛЕ ЧИЈИ 
шала аа ОСТРА ТУТОР РИМ 
Тай екп ERA. 
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ЕН S Bc searchi& CERA AERA В БЖ. ЕН: 


» search() 

[1] ".Globaltnv" “package: stats" 

[4] "package:grüevices" "package:utils" 

[7] "Package:methods" — "Autoloads" 
ЖЕНЫ, Didi оо AR do STÜEA IS]. search ОН ВИА ДЕЛЕ — 4 
тра, Жер, ВАНН" -GlobalEnv", ЧЕЛУ). X ЕСЕТ 
Jin" package:packagename" (f) Ç, R74 раскадепатейзк tü i Ñi О ји. {E 
Wilh, САМЕ: stats. graphics. grDevices. utils. 





КШ Н. PURA WE ВАЧ, RAER E REAR, МЕЖ 
алена. ЕНЕ. Шкікіге, SW. кана вер. 
Е. (559596 ЕРЕ ИО ДЬ, MORE bt ва, ЖАКО. ВАН 
W tatki, КАНА НОИ, DER. СЕ Language Definition) , ) 
ШЕГЕ (.GlobalEnv) ЈЕНИ ИРАНА ст, BEAR ZEN ЖЕ ГЕРТИ НА. 
ик, жаласын. Яп T (ES lU НСВ оно АНХ, ШТ 
жіне "ue" ји. UDR ЕН Т. {ЕЗ ОВЕН. важи 
Je ЕЈ PID E, шоково УЗ (D RB, oH tfi e, (Н 
ROR SEE ЛН ЗАВ LIER лата ааа 

Rb Жї 38009 ih e атал лары» 


ЖОМ ІН, MATER ЖЕНЕ ОМ ТХЕ (ЖНЖ йРАТН) ВЫ. 
вана F 8000291638 SAMIR. RRR EE СЕК P BE ЕЛІ, COCHE 
ЛЕК Ва ЖИН, ПОЈМА ФИА Д EUNTX RR e rb Bae S HRETRUY 


sis 
ЖЕН АЕ, 24536, XE nfi ЕВЕ ИОЛЕ Gif fs DOOR CUR 
Атқа), PUHKI, X Tn (et edat A BRE, SLES, 


3.6 (EARE ФИА 


в 
HRP ЕЕН о ГОДЕ ОАЕ, аламы TAME, Я ЧЕ ЈЕЛ 
кїл О, КОРЕНИ ЯК. 
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жал 


UTE Library едите КЕЛЕ, 
> library(packogenase) 

Wit 

RENEE, HE RARE, УНИИ А П ЯВА. ТУР 


CRANE ИНЖ £ IR GL, Наван КАНА. йш, R 
(ОМА ДЕЈ PERE, ЕЛА А ШР 1дан Вин, AEA НАШ ҚІД В. 





> lda(x) 
Error: could not find function "1da" 


кїй л ЖЕКЕ 5 WAR A ИНӘ PURI dai. 


"MH тату жЖтедиїте ИМ, RIH о A NEH, RAN Gb ff] 
ЗЕ ST ра 


> Ma(f ~ x + y) 
Error: could not find function "1da" 

> library(MSS) # Load the MASS library into memory 
> Ma(f ~ x + y) 3 Now R can find the function 


call: 
lda(f ~ x + y) 


Prior probabilities of groups: 
1 (ete.) 


«ЕШ ьтатуй ОМ, КЕНИЈИ. MHlibraryg б АКЫН, Ы ЙЕ 
(ЕЗГІ. HEIN STE ЖЕ На. 


WEE, fElibrary k Kh UR о ИЕ ЈИ У THER. 


require tt 5 Library LP, require Cfi HERF ВИЖ BUT 455, 
E CERDRARUE, GREITRUE, ZU. GEFIFALSE. ЕЕ Л ЖаН. "ЕО 
НОНА В, iülibraryf АЯЖЫ, SERENE. 


ВАЉЕВО АН, ПОПОВА CR AR GL, RU ILIKE IM 
MEARE. кавънкжвнии, икезалюкожавкал, MERAL 
HUBRA НИВА, ЖЕЛЕ А... 
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Чехасһ #2 IR 4 Î LRA OREL 
> detach(package:MASS) 
ВЖ, КЕИ ТЕ, Ш раскаве:МА55 Ж ЖИН, 


аав йо РИМ, рова ts FERRI Re Во сова LUE ER CIC. 
қолым. AOT KE МИНУ як (We tpl k НЕ ВИНО Чо) tr E AUT ИК 
(ажей таз тазала таралы аа 
VORHER Ék, BILL ЕТО ЗА УЗ Нето бо h 8 


318] 


СУДСКА 


3.7 ВАН ЗЫ 


вм 
г 


ERR 


H TERM 640 datasetstl, FLARA ИЕ Bc ЖК ЖЕ TLNE НЗ. 


EUH ро СНЕ К, ET da t ai CE (EB cr HM ES 4 WE tea k # 
ж: 


> data(dsname, package-"pkgname") 


wie 
Rib. ҮК A WWE. на ТЕЙНА ТХЕ ИЕК, ӘДЕ ТОП ЖИНА, ва. 
ПАРЕ У n ER (ofr REM. 


W £ ЖОН ШИН @ (E A 9 datasets' REL, ЕКО ДЕВИНО, “Еке ЖЕР, 
Wt STE ÉL HERZ ik sete Ж, Flin, АЛЕН ИДР ЖЕСІН ЖЕ pressure: 


> head(pressure) 

tenperature pressure 
1 о 0.0002 
2 20 0.0012 
3 40 0.0060 
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4 60 0.0300 
5 % 0.0900 
6 100 0.2700 


fins И T ROE $ fi ВНЕ Жртеззите (АЈА, TELE ће трна ROKE AKR 
KWER: 


> help(pressure) 8 Bring up help page for pressure dataset 
fab a LA Um МОВ (E Малави, EK eldatasetstL P rf — TIR, 
> data) 8 Bring up a list of datasets 


TEGIR GATA TEGRAE C ВНЕ Е, KIER GdatasetsrhilyiHB. И, MASSA T 
ИЮНЕ. (ЕР package ® дата сато уН НКО о ВС, 
MASSER (0 ЖЗИ Е Сатвдз, ЭЗШ F Jj DOR Ulo]: 


> data(Cars93, packages"MASS") 


НИЯ T da tai Оп, (ЕТЕНЕ НСаг sosti, JEU Fins иттату(Сат 593), 
head(Cars93) Ф. 


MER A NMRA Чаа. (if niliitlibrary(MASS)) , PRIRA EWH HR cda take 
Vieni а БЕЛТА от, "CHOR ЖИЕ A TL. 


HILL BDHdataif KHER їз £ Kf Жраскаве BO. (ЖИПЕК Акт), * 
Ti fiMASSiR tb Gp IO BAR Ж ЖЕ. 


> data(package-"pkgnane") 


PRSA 


ЧИНОМ Е ФИНЕ, PUHAS, ЯК гатуй Ж, #436. 


3.8 ZG зеен Б IX 


в 
ара ала а ааа ттен 
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БАЛЕ 


WHEE Bc Library h вок ВЕЖЕ ЛЕ. EH installed.packages ФН 
авт e. 


ий 
же артатун А ДОЛЕВОЕ, ПРЕРАНЕ. fELinux Ж 
h. ЯН Юм JL TER ERT: 


> library() 
Packages in library '/usr/local/lib/R/site-library': 


boot Bootstrap R (S-Plus) Functions (Canty) 

CGIwithR CGI Programming in R 

class Functions for Classification 

cluster Cluster Analysis Extended Rousseeuw et al. 

овг Database Interface 

expsnooth Data sets for "Forecasting with exponential 
smoothing” 

+ (екс) 


fEWindowsfilOS ха, ЗНА ПЛО. 


ЭГО ЛЇ1пзїа11е@.раскаве5 ЖЕЙН ЖАН 0, Bof cA Ре ДШ КИН! 
CLAIR ОАВ, ETHEL LEK RR, МЕРЕН АГА ВОЉЕ, MR 
анта В. КАИ вше п EEE e REIR GL P BONIS. 


ТЕП ОГУ, АЕ MAL. Filif Windows See o fet 
ЗА Иапока 1ед.раскарез ни И, HE f Package Version, ГІЗІ, 
ТКМ. 


> installed. раскавез [, "Package", "Version")] 
Package 


асераск 
E 


bootstrap 
calibrate 
car 

chron 
class 
cluster "cluster" 





1 fete.) 
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PASA 


жй ЛЕНИНА, BLH36. 


3.9 АСВАМ ВЫ 


гад 
ЖИЕСВАММ Ческа, ва ТАРЕ ЕА ДОВ ИНИ. 


ORTUS 


Фен 
ЧЕ Hlinstall.packagestáBt, (ЕНИ НА КО AEM: 


> install. packages ("раскодепоте") 





Windows 
ПЕЊЕ “KHE” (Package) — “НЫ”... (Install package(s)) 
Mew 

osx 
ЕЖА КИНО ӘЖІМ” (Package & Data) — “RKU” (Package 





ТамаПег) fr tt, 
AEFBOÜPEG, ЗВЕНА НЕСВАМ ИОН. 
fEWindowsflOS X E, tZ GR HI EHRE TIR IL. 


SeLinuxs UNIX rh HOR £i sede 


BS &Linux &UNDCP | 2 AREE RT UGE—ALR PUER, 5, Нож 
Жл йа К б АДӨ, МЕН, вж, EX IAE Kod, 
лил. БАНИ, Пети 
жжке якы АЫФ. 


Aer roots RR 

1. f Язи иво +ë shrot а. 
2. ÁrooUt& Pte Rita. 

3. AE Frinstall.packagess f 
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ЖИЖИ гори Е, (НАМ За. install.packages# ft obi dr. 
НЕЋЕ, JOE ЁН ДЕ RUE ТАН 
Bd. ЖЕНЯ, © ФК ЛАЛЫ ЖТЫН УН Ж, FAX TEXRA 
HRE, 











үне 
ЖАЗЫ. ЖЕНЕЛЕР Ей —%. ИМАН TRAK TDK EK 
ве: 


--- Please select а CRAN mirror for use in this session --- 
ALTER RS CRANE IA AAR, МЕНЕ USAGE AA A 


CRANII HMRI 8 — Н RMB, “(y T e EIA A at A uA Fe en 
БИЙИККЕ ВЕ (WU Wien, Vienna, Austria) „ 4034A REK ЕЛ A ЕЛА 195 @ 
ТВ, жазаға, ИШЕ АВНЕ тетива, NREL 
AMOR Be Gr cir D o HET FR. 


MRR RIOR алара ала тата PUYA EL 
Tx egi HOUR, ix —3»»f @. ТН)" ЖЕЙ e RILT LAE G D. 


TELinuxiUNTX ЖЕН ЗЕН ER УРИБ АЦЕ, ФЕРДЕН hid Л. 
ПЛАЖЕ. ЖӨН SUP ВАЛЕРИЈЕ РАП, ifs A Ае ВИЕ (— 
КО DUI AERE. ЖЕМЕ UE FE HIR GL жена А, НР 
ЉИЉА ЕЛИ ST дка А Н Ж. 


MUMS ТГ, install packages ЖУЙКЕ КУ КАНОН. ВЛЕЕ РА 
Heb, MGE BR, И-лык. 


$ mkdir ~/lib 
$ mkdir ~/1ib/R 


BAIR UKE RHE те 1185. CM, REHE RRA А Н RAE: 


$ export а LIBS«-/Lib/R # bash syntax 
$ setenv 11185 =/lib/R # csh syntax 


Zi, WiBinstall.packagesth FUE Lib SORER RRR: 
> install. packages("packagename", libs"-/Lib/R") 
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PASA 


ЖИ ян хк, ВИ, ЖЗ ЕЕ ИЕЛІК, £ Jika, 


3.10 iE XEBGACRANBISE SER 


[2]. 
И көжек, ева CR ANIATÉR, HER ACT HUMOR TER S 
жена. 


МАЛ 
VOU RRCR HL PR Ж &  Rprofile ХЕ. MHIR: 
1. — WHichooseCRANnirrorH& й: 
> chooseCRANmirror() 
RA № ЖСВАМ ФИА. 
2. МАЊИ ЕНИ. 
3. же героини — 1° Ж ЖЕДЕ ИНИ ИВЛ, 
> options("repos")[{1]][a] 
4. EFI Ф In Rprofile Xh s 
options(repose"URL") 
КРОВЛЕ ЕУІ... 


ию 

EEK ЗЕМ EE REA НЕ ЈЕ ИСА АМЕ HDI A RE MO E ЕНЕ) „ Dk 
“ГЕ РЕ ЖЫ ШІ E PEG HR РАЈ РЕН. ЖЕШ LR ЭУЕ И 
ЖИЕ ТЕЛА, кәні жегіш Т. 


reposik JL IE MIA ВИНО Ek, fE HlchooseCRANmirroriñ Bod REGE RUM 2 — A RENN 
ЧЕН, ИЕН НЕЖ ВЕ тероз И. БИШЛЕ ROR HE, ROS Zt RAE PETS E f БИЧА 
ЧЕ. HLE Кргојпе ни герои ТИЕ, RE RRS CE акы іе, 
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же 


HR Rprofile c P options MEE, #7346. 


3.11 BRA A 


в 

КО йл. KI R С 

RHR 

TERRI, ЕО дея. 

не 

загина, RAIA LL T RARIOR DU ЛАА (аз нн ВИИ 
нациите. 

HEA SF AFIR, NISTCLERI quieti RT RADIAL: 


$ R --quiet 
> 


MERN Linux жи, RIRE КО ФА, ATR: 

$ alas Re" /usr/bin/R --quiet" 
ФМ пао ЋЕ АЕ ЖЗ ФЕ. TERREA pR л--фите КЛ, №. 
жарава, ЖЕ Ах, ЖЕ “RHE” (Properties) , Ж “ЧЕК” 


(Shortcut) RE, (E “Fb” (Target) FRM, in--quietibW, Не, ЈЕ 
BUFIBER- quiet гін ЖШ БҰ. 


E I 


защо. 


3.12 ETRA 


вм 
Tie SUE трае RERE HER IRRE. 
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жалж 


source MERRICK HEAR НОРА: 
> source("nyScript. ^) 
НЕ 
AM UOI ARRA РАЧЕ ICE (E T X KX Herb SERERE ФР ERA AERA GR, ВЕ 
Жвошсен а ERES, EGEF ARIES 
TUE XCHehello RHEL tu FCD 
print "Hello, ога) 
ОНИ, 


> source("hello.R*) 
[1] "Hello, World!" 


ИЖ S ftecho-TRUE, (ERE B RCRI тс FH СЕА 





> source("hello.R", echo-TRUE) 


> print("Hello, Worldi") 
[3] "Hello, world!" 


5859 


Anf (EH W зе, $532.13. 


3.13 ВАК 


ГЈ 
НОБ Ф Ж, MUNIXROS ха ће, d Windows КИНЕ 
виж, EB fF ЕЖЕ. 


RORIS 


fE ЯГСМО BATCH M >В SOR ЕЛЕ, ЗНА IUBE CHE FEAR HIC 
$ R OD BATCH scriptfile outputfile 





Веи |n 


полета НИНЕ R R жаннат, вата ево, sJ 
ЕВЕ Rscriptér4: 


$ Rscript scriptfle argi arg2 огуз 


не 
К REAR, CERM RA, РАЈА БЕНИН. РИКА ЕНА F 
занк, АЖ. ik Раће ПОЈАВИО. in ЖӨН ИТИИ Жүні НИ 
LL 


CMD BATCH Ў ФЕКЕР К, САИ Ж Х PescriptfileJt EMH ЛЯ 
X fFoutputfile, ixi iE Repo ts PH, 


Mi STRE Ж HU ИИ те ЕЛИ, ЕНДІ, (Nin, (ЕЛІ--диіе Я 
KEG ipta e, ЗНАНИЙ BEAL: 


$ R OD BATCH --quiet myScript.R results.out 


FEEDER THR: 


--slave 
ASI --quiet ТІ СТАЛ в, ERIK PERI I IU PT 
--no-restore 
Жай ЖЕШТИ, ААД Т.К И BRIM ЖГ. Xi 
maw. 
--no-save 
жанам, BRETH, зен, кй (ТЕ M T fE DOE REGI TE HR 
ию драм. 
--no-init-file 
FIRIN Rprofile HERH. Rprofile ХЕ. 


EMEARI, CMO BATCH T-6 Ф M £t HC рхос tinek BERIA, Яп 
NORE LRM, ЛСД ЈЕ РЕЈ БЛИН BU runLast«FALSER QE. Ci 
ВЕ рхос теб с. 


CMD ВАТСНУ ЖЫН ВЕНЫ Е, ЗЕНИТ. 
жефпзкиваянке. ша “НЫ АЯ, SEULS TE GE PRRAX IE ӨНЕ) 
RscriptÉUT. Rscript@r ФИА РНИИ, Каена 
НИЖЕ: 
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$ script ayScript.R эг arg? 2183 


ENEH, ПЪК АН соптапдатр ЖЕН, жена SEO — 
AFTER AEGEE: 


argv <- comandArgs(TRUE) 
RscriptFFHICMO ВАТСНЯ 4 НЕ H ifi BB Ar Iff 2 E. 


ЭННИ HA FCA HIBE HH BE FP, ERM shel IMA hak ak 09). 24 
Ж, УВЕ МЕНЕ НАНЕС: 


$ Rscript --slave eyScript.R argi arg? arp) »results.out 
Fili Harih RORE, CHAM oe HIER UOI ES 
argv <- comandArgs (TRUE) 


x <- as.numeric(argv[1]) 
y «= as.numeric(argv[2]) 





cat" =", x, wo) 
cat("y =", y, ме) 

cux + y = ", x + y, ме) 
etx y =", x y, Че) 
сак ty = ", x * y, ме) 
etx / y "x у, ме) 


ЖІ Fi E ЗАН. 


$ Rscript arith.R 2 3.1415 


FEM FH. 


хе: 
У = 3.1415 

х+у- 5.115 
к-у е -1.1415 
x *y- 6.283 

X 7 y + 0,6366385 


fELinuxiUNIX ЖЕ , fP LL ЕК US ma UG PRBER 5 cri p t ЛЕЙН, ЗЕ 
WERE наат (пре и но еи). BUERscriptRUFAA(E 
lusribinIRscript А Жей, (SIE Earith RW A: 3c Heri т 7, HOC d SC 
в: 


#l/usr/bin/Rscript --slave 
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argv <- comandArgs(TRUE) 
x с as.nuneric(argv[1]) 


1 сес.) 


TERRE, RHEE СЕ STA ХЕ: 


$ chmod эх arith.R 


ЗНАЧ РТС Же реа fe HEUS ВО ЖАК: 


$ arith.R 2 3.1415 


же 


МОКА НИЖИМ, 803.12. 
3.14 RRINE RHEE М 


вм 
лаззатты атта 


NORTE 
fE Hilsys.getenviñ ffe fis ЛЕ ШЙ. ВЕН уз „рикепу ба Bek E PRIE ЛЕ i flf 
> Sys.getenv( SHELL") 
suit 


"bin/bash" 
> Sys.setenv(SHELL="/bin/ksh") 


ию 
катфаккомхаве HIT Wo ЖР КЕНЕН. ТИЕК РОНЕ 


НРУ. № Т ИНЕ ЕЙ АТР, fb f Ri PUSO ЛЕ КМ. БІН. 
Жы b i E ce EH ds SCHO БЕЛЕ ER ie FERE 


ROMER, {Н Ж EAE I TT JC. Blin, HHRELinu КОЛУ 
Aie FR, (ЖӘНЕ (ET АЛЕН, XOHHUCTO ИЕ ИИ. Ж 
Ж. ЖЕЖ LinuxLfENPis(IR, ЖӘНЕ ЛЕЛЕ dei ЕД fELinux 
Scb, RJHX Windows# fk НЕ. X Windowsf 34 J9DISPLAVÉI SHE ЛЕ Reit 
HERR. SIDUBGSys.getenvi& ЖЖ ЛЕ ЖОТБРЕДУУВИЯ : 
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> Sys-getenv("DISPLAY") 
DISPLAY 
":0.0* 


BUE БЕЗЁ ЕВИЯ ЕСЕТ АЙ). (ПАН "гоо", ХЕЛЕНА T 
Геза "09 Sm. ORE ЕП. 


ТИНЕ ICE 1 P| Kb ЯН O 100. STEUMDISPLAY S Bc tn F fiai 
> Sys.putenv(DISPLAYs"localhost:10.0") 

АНЕ, ПОМЕРЕН ЕР] A геи) THESES OFERA, ODER HERRN. 
> Sys-putenv(DISPLAY-"zeus:0.0") 


ALT ЕМИ ЯК, 4558 ТЕА M IRE N PICIEDISPLAYAE Ж, 


3.15 ЖАЮҒА 


T] RÀ 
Tii ET НА ЕН Ж. шествие СЕЗЕ ЕНИ Н Ж, 


RHR 


КЕ РОВ НОМЕЙ ВЕ, ЗГО уз. getenv ih MOE i, 


> Sys.getenv("R_HOME") 


ию 
алла аталарға (а детета Иий ОН, ГЕН 
ра 


TERM, ХЕХ ЛЖ ному йш (PERE) | EERE НИЈЕ 
ЖӘЕ. ЭТО буг .вебепу нв ИЙ. Fili А S IHRER НЕР GUI, t 
РАЗА ИСА ЕВИЯ RA Bi Ard : 


Windows 
> Sys.getenv("R НОМЕ") 

в ном. 

"CH VWPROGRA- 1 WRWe-2171.1" 
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osx 
> Sys.getenv("R_HONE") 
*/Library/Frameworks/R. Framework/Resources" 


LinuxUNIX 
> Sys.getenv("R Hone") 
R номе 
"/usr/lib/R* 


Windows RAPRA ЛЕЛЕ ЕРА АНЕ, IR ДЕЕ Ж ELS JE RIDO JE SCIO АНЕ. 
НИВА. ЖИ, ЖЕ P ACE E BER IC AProgram File\R\R-2.10.1 





TEUNIXIIOS ХИЖР, ПЈЕРА ТЕЗЕ. JEHETHRHOME а os EH 
E: 


$ янне 
шім 


ЕЖ. ккомхнов XARE H Ж ta & ХЕ. HORS ILI TAFE Kit. 
(іп, RIE FL Ж y/usr/lib/R, if STET CHE STRE fF MCT lusrlbin Reh, 


3.16 RIS Put 


ад 
вв DILE изд чина, KEMERE. 


МАЛ 
HEL. 4M .Rprofile IME X PEXOHRUERSIEG Ж РЧ, КЕЛН ТИСЕ, FEM 
(ЖӘЕ Rprofile3c PENITE Yet W fi BEA] : 
OS X. Linux UNIX. 
ХЕРА жер (~/Rprofile) . 


Windows 


KHREF “АКН” (Му Document) h, 


Wie 
МЕНӘН НЕЕ CRprofile) . ИРЖИ А НО ВИА 
RAR KUR. 





76 | #3% 


ОВ 20 RprofilelfJRE ЛЖ СЕ, JEPERCKEMCT E НЮ (OS X. Linux UNIX 
HERH) , RE СВЕЖЕГ (Му Document) НЗФ (Windows ХР), ЯЖ “X 
Fi” (Documents) НЗ (Windows VistafilWindows 7) . MEE SCH Rprofilerb FILLE 
HIS ВОЖЕНА ВЕЈН PEC, D RII I CORE AR A MASSRL, ЈЕНЕ HE 
ПЕРА: 

equire(MASS) 

options(prompte"o ") 
ВЕ XCIF-Rprofilefe AES I WS ВЕНЕРЕ, REME W ПОЕНЕ. (An, 
ЖЕҢЕ СЕЧЕНИЯ ELI ИННА В. ER НЕТА А, FJ 
W. ERECTA. 


faba LA ERE ЖЕН seri де 4° Rprofile3t Hk k MEER GR НЕ HR 
МАЯА, CRR N ARTF Rprofile3cHE s Ve STEAM RUIT DOS IET 
Нит CNN. (WURA EHEER) RT, ка ата CH: 
ПА ВЕ и хе. ЗНА БОЯТА ВОНИ, (UU РАЧИ РРА 
р ris our cef BOR UI ӘКЕ K ft. Win, отет, БЕ ЖЕЕ 
ЖАН ЕМЕ ки, RIE PER ETICRS ID : 





source(*7/.Rprofile") 
в 


8... remainder of local „вргой е... 
. 


REAN 
Jk PCT PEELE Мори ions A ЖӨЛЕК DOKAR, Rih fr (EW ак НИЕ 
MW, MoptionsfiHhelpi& RCI LIE ik Ai RII PUR s 


> help(options) 
ТСТ Д Я, 


browser-"path" 
HTML у йн, 
digitsen 
жый жй. 





мухженане. 





мај 
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pronpt-"string" 
MAIER. 
repos-"url" 
ЗАК ЙУК b hF, 


warn=n 


ыш E 


BARÊ 
ЭЛЕН "ОБЛОМ А.Е. fco RET SER FE ВЕК ВН KERE, |42) 
Acre tg e UH. TELE MNE Е Rprofile3c (shi Inrequirer& (LA SAL, Я 
ШКОЛИ (2 Л tseries REL 





require (tseries) 


MRM Н гедиїгем iH TERE, WA A СЕК HE атта та 
пре fF suppres sMes sages #й Bh) 4 fcil НЕ НА ВН: 


suppressHessages (require(tseries)) 


№ T W Cb UH теди те УР, "ГСН &odefaultPackagesíf) # fig iii T. 
KER AE A лика е, CREE Т ЖЖЖ в. n USER Ак. 
ifm Fide iG, Мк ТЕА АВ АЈА PER GL, 3: КА СЕ Librarystrequire 
тжен, 


ЕЕ ВА X Pb rh Н T UN ВЫХ ARIAL AST RR. HT HEART НЕ 2 oot, 
FALL EIR Infidefaultpackages?ldérh : 





pkgs <- getüption('defaultPackages") — s Get system list of packages to load 


pkgs <- c(pkgs, "zoo") % Append "zoo" to list 
options(defaultPackages = pkgs) # Update configuration option 
m(pkgs) 3 Clean up our tenp variable 


fiJHdefaultPackagesíl) — FF ^ fE F Hic eT LUST ӨТЕН p| ЕВО НЕЯ ЛЕ. ME 
НОЈЕ RARA, НИЕ ЕЙ 382 о ов И НАЈ НО GE, Rü 
ERA MRE MARRARIK) + 


Bis зоо КОЛЕ НА A, MEARE ЕЕ тоо. ЭЖ 
№, НЕРАЖЖ и афина Алабгату (200) А. MLL RAR НВ Т ЖЕ, НЕ 
ЖЖ; 0 ДЕЦИ 862 НЕ. 





78 | #з# 


ђе 


Fi ifr RR АРНО — RAEE (fE lhelp(Startup)ét4-fE FE ARIA) 2 


1. 


ВБИ Кргојпе не MK. ЫЖ ХЕ ЖМЖ, ER RIE ИЗ} 
ВЕЛЕЊЕ НЕЕ. ВКВС SE ERR R HOME/erc/Rprofile.site (ЈЕ 
"b. ОНОМЕ КЕ ВЕ, 89273.15). 

RA Gb E Арғо/Ие зиеж#, KRR А аго НЕН ЗЕ АЕ LA 
xt. 


RATTLE E ЖР ВО RprofileA cfe, TECH (ERE, WMATA AE A h 
№). RprofileX ft. {ЕЗЕК —% Wl P sTHHB А СЕЖЕ. MAE AR 
"PS. Rprofile3c ЕУ ЕА АНЕ de E, "REACH ИОН ЖЫ. ix PERRI 
ВЖ Г. RprofileW Жо данеж A R FARE tt. dm, УІ 
WFAA ИНЖ FIREK Ife. 

AR ET (E Heb Кага, ЖАНА A i& RDara Per ( (EU T (et 
М. REBUM RHE LES ЕЕ — 40 Rdaraffj Sc Herb, "MEA Ec ТРН 
аманат ЗМ U F) HORIS обра NER RR tk. 

An ЖЧ First t, ҚАНА. Firsrif BOE FR Н Ж S Pad n teftc 
ЖАСИН Э, (ЖЭПЕ Rprofile X RT. flt i polen UR НІ. 

ВА First.sysifili, 3x — ph RA ТОГА ОТИШ У 
ACRI ПА ЗЕН ек. 


ERE, ВИЗИЯ ЗА First.systR ЕРЕ ИВО. ER I A EUR 
RBA. имай, Db ЕЙ > I JL AP ЖАЛЫН BS RUR LOL ИЕ. 
А. ВЖЕ RprofileWi ж X ft АВИТ FRI CBE IE HE HE. ОЖ 
ЖА. 


изя 


НОЖА, 2024536, X TRE) (help(Startup)) udi (help(options)) 
MAF, ЗАМ. 
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ва 


RA 5 hr 





ня 


ПРИ T fE PAR АМАН ТРКА. поканата P kitin igk ih. FEA 
HIMET, WEBE А. 


тн ЕН T. f c He иде AC He cU AI IL He, MEKE ЖА, Het e 
AS НЫЕ ЛЬ E E COUP. —Ж зк FH АУС ТЕТ 
Л, геад. сз ЦА CSV cfe, iiit read. tablet ке М ff) dee. 
ВП print. catfüformatit АИ cet W k 08 S. 


APTE CHER АМИН (UO) ЛЖ, ЭНЕН (R Data Import/Export) 
ЗХЖАН В, STMRICRANBIE (Attp:l/cran-r-project.orgidoc/manuals/R-data.pdf) F 
MERI, ЗОБРА ТЕН Т па тн. СЕМЕ. OR EHE HORAE R ЈЕ 
hiki aan, 


XK FRR REE REFE 

00 — eM HISASHOMIZK, RIKER ARERR. ECHRISAS ЯГ Reed 
19 Ar Je CR MEE ВАНЬО ВЕЕ ЗС. RA HP IT 45, RICHER 
JG BETA foh, Hed COE hi. NL RIA en 


жалны ЖЯ ERERKEN, RHEE FAAS. Sik 
ФЕРИ АВНЕ ава ТЕ, пм. НН 
L—EROBWURICTR. комхяве. MH k BUEK EER A ВЕНУ ВЕРЕ, Ші 
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ЖӘНЕН АН МЕ ЛЕЛЕ. UNIX P pit Нева 4E 
Ж, жеж. 


АЙЯ АІ ЕНЕ ЕНЕ, Hit T ЭСЕН КЕШ РГЕ AE £. 


жп, кил — (EE LEER ЖОЙ CHO Г.Д. БР ЕВЕ И ВЕ CAE T JURE 
ВОИ ATO EA. регі, awk, зей, 317. M, REIER A, виж 
T] ERE M Mb (ER р iR nik ЕЖЕ? 


КА А FEBR Яр. УСТАТИ ТИТУ 
ЗНАМЕНИТ, ИАЛ РЕЗЕ НО T fE. 


4.1 ЕН UE 


в 
Vii P MGR, dT eU ВИ ТИ OE A ft. калина. 
аскет, 


МАЛ 
ЕТТЕ QE SEI OH A ORIS E 


> scores «- (61, 66, 90, 88, 100) 


Bh, STEM sr НУЖЕН, ЖЧ JAR P WOO АНЕ ICT JC rb D i 


> Scores <- data.frame() # Create espty data frase 
> Scores «- edit(score) # Invoke editor, overwrite with edited data 


fEWindowssékrh, ВРЕМЕ “ШЫҢ” (Edi) — "EGRE (Data 
frame...) ЖЕНЕ. 


не 

н —н ГВ, Жи E R BCE СЕРЕН RAI КЕША CHE, Ж 
АЙ ӨХ He ЦИ A HIRE. ЖИМ НИЛ: Fc ( RH BR ЮЕ ЖЫ Ж, 36. 
ЖОЙ АЯК, мА ФЕ, 

ЖӘНЕ (A) OG — I IHR, АВИВ НР: 


> points <- data.frase( 
+ labelec("Low*, "Mid", "High"), 





BASH | 81 


+ lboundec( 0, 0.67, 1.64), 
+ uboundec(0.674, 1.64, 2.33) 


зязя 


3 F tutal ë IRN W J ВИЗЕ @, SLITS 26 ONU Ж. 


4.2 BREDATA (RE =) 


[251 
Tc RH UHR c ЖК DIG, RH SER SLE осн dé 


NORIS 
ПА ОРИ 
{сани}, отан Сев азво Ф) жасан ИКЕ. 
НЕ 
лала HEBR MER 
он 
[1] 3.141593 


> i00*pi 
[1] 314.1593 


RAFAELEM RKRN, (EE UII i] Po ET ETE NE BC ISTE A HR WK 
Ж. тм АЕ АГ ЛЬШ, EREEREER, XX MN А жін. 
4 printi& Mp уаз а E HH Bio (occ 

> print(pi, digits=4) 

[2] 3.142 


> print(100*pi, digits=4) 
[1] 314.2 


са ЛИЕ ЕВЕ BICIS EFER. Kit, (EUER cati ВАМ ТОЕ Нотта if ВО 
KEMER: 


> cat(pi, м”) 
3.141593 
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> cat(format(pi,digits=4), "\n") 
3.142 


ЖЕК, реале отта МАМАНЫНАН АСЕАН E: 


> pnora(-3:3) 

[1] 0.001349898 0.022750132 0.158655254 0.500000000 0.841344746 0.977249868 
[7] 0.998650102 

> print(pnora(-3:3), digits=3) 

[1] 0.00135 0.02275 0.15866 0.50000 0.84134 0.97725 0.9986 


РЕВ, print мана ROC АИС: канела леи ЖИИ. 
ж, RCH ВИ НЕКЕ НАПАДЕ НЕ (tot ЛЕНИ). ЗРНА 
ит: 


> q «> seq(fros-o,to-3,by=0.5) 
> tbl c- data. frase(Quantaq, Loverepnors(-4), Upper=pnora(q)) 
ва в Unformatted print 
Quant. Lower pper 

1 0.0 0.500000000 0.500000 

2 0.5 0.308537539 0.6914625 

3 1.0 0.158655254 0.8413447 

4 1.5 0.066807201 0.9331928 

5 2.0 0.022750132 0.9772499 

6 2.5 0.006209665 0.937903 

7 3.0 0.001349898 — 0.9986501 





> print(tbl, digitse2) # Formatted print: fewer digits 
Quant Lower Upper 

1 0.0 0.5000 0.50 

2 0.5 0.3085 0.69. 

3 1.0 0.1587 0.84 

4 1.5 0.06 0.93 

5 2.0 0.0228 0.98 

6 2.5 0.0062 0.99 

7 3.0 0.0013 1.00 


ИВТ options И ФСЕ SEU NM digits). ВСЕ RU AURI НЕЗ 


> pi 

[1] 3.141593 

> options(digits=15) 
> pi 

[1] 3.14159265358979 


АВИВА. ВОЛЕ, вас TRA И ТИЙ НН, юн 
BEDS Ж ГЕ 2: лак. 
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E Id 


Зейн еко КОН sprintfflformatC, Е £ ER ERDI. 


4.3 1838 H ZR SE GE [E] Z| 3E — XEF 


T] RR 
Tic fe EAR HR RE TIAE же, TERHEME. 


WORT SE 


Ж сав НЕ Ле, ILLA HARE Ы: 
> cat("The answer is", answer, "Vn", file-"flenome") 
HET sinkiR BCH Wifi printicatéf ЖОЙ НА ЕВИЯ ЕРА. СЕН ок tM, НОС 


АВИОНЕ MH M Gs ФИН ЖЖ I ВИСЕ. HERE, Чаша 
ФЕ алк ВОН КРАСЕ, НЕН ЖЖМ: 


> sink("flenase") # Begin writing output to file 
. other session work . . . 
> sink) в Resume writing output to console 


ртіп саб ВОН АНИ В. (са вон TELLE file Bt 
ШУЛЖ, Jer Filed ЖИЙ ПАСА, ФЗГ АНИ. print KNEA 
ЖЕНЕ, {sink РО СЕ IHE ЗС. ARRE sink 
СРЕСТИ ТЕ 


> sink('script, output. txt") # Redirect output to file 
> source("script.R") в Run the script, capturing its output 
> sink 8 Resume writing output to console 


MRR Ho (ca til oH ДЕЛЛЕ ВО, ВАЛЕ append BIOS 
TRUE, GW, АЕ cat ANA N Sik k PE DOR А7. 


cat(data, file-"analysisReport.out") 
cat(results, files"analysisRepart.out", appendeTRUE) 
cat(conclusion, fles"analysisReport.out", appendeTRUE) 
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fk Lili —FEOHCHE ЖАН (ТВ ДАБ IE ЕН RB HEAR SERE, ЕНЕҢ КЖ 
ССАН Т? БАТА ни), Tunt THE АСС, JE 
HS RAQ р ЕВ. 

con <- file("analysiseport.out", тъ) 

cat(data, file=con) 

cat(results, file-con) 

cat(conclusion, fle«con) 

close(con) 


(ЕМИН ИВАН. (ИЕ Rta ppend=TRUE, МЕЖ ik вишна 
№. ) ОАЕ ЖААГАН, Љути вина waq, CS EA I, 


4.4 Bm XC яж 


в 
жЕ ШЕН. тле НӨ SUCHE EB. 


МАЛ 
ПАЗ ТОРИ РА 
ТУ 
We 
URBC В ВВ, дозе io kitty б (Min, Сатре 
data.csv, VElesample-data csv) ВАДИ СДА 3 List. files ван З, 


> Нв тез) 
[1] "sample-data.csv" "script." 


Wei Heb ӘӨЖ. HOHDList.fles(recursivesT) 


15. Пей ащетегенвахе- (.) АЗС. dn 
AUI tB fe filà СЕ, Void BClist.filestt) S Brall.files-TRUEHDST, 


> list.files(al1.fles«TRUE) 





»взя 


RESH JI ЕЛЕЕ СЕНАЖ. У УМОР ван. 
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4.5 ХЕ ЛЕМІ ом +I A ff fO ај ЕД 


217 
ficte Windows ЕНЕ ТЕ, АВЕ 0С data sample лк XH. ВАЛЕТА 
жї}, (LH RE CHEMIE. 


RRR 


ЗАИР БЕЖИТ (Су) APRE, опази FH RR: 


БЕННЕТ: "C:/data/sample.txt". 
° WERP: "C:\\data\\sanple.txt". 


Wt 

ЧЕВЕР, МАЧ ТРАВИ UC HER. d eht 6 БЕЯ 
во), MARA, ТА НЕЕ ТР ГНИИ Ж. DU LRL 
ж. 


> sanp <- read.csv("C: ata Vsasple-data.csv") 
Error in füe(füe, ЧАТ) : cannot open the connection 
In addition: Warning messages: 
15 an unrecognized escape in a character string 
2: '\s' ds an unrecognized escape in а character string 
3: unrecognized escapes removed from "C: Mata sasple-data.csv" 
4: In fle(füe, rt") : 
cannot open file 'C:Datasasple-data.csv': No such file or directory 





КАНЕ SEL IG RU" RE, MERRE. имаха БИЧ ЖЖ HE 
deht, Ande (Ih ffC:Datasample-data.csv., 


MEO ВЕНУ ЗРЕО ЖК E FHL, ӨЛЕМ ӘНЕ. ER Th ЕГЕН CIE REGE 
Ж, ifiWindows Ж PE ЕХ ЖАН, ХАМ Г: 


> sanp <- read.csv("C:/Data/sasple-data.csv") 
> 


AARRE I нт. RRR HED Б НЕ У БН. 


> sanp <- read.csv("C:\\Data\\sanple-data.csv") 
> 
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4.6 Jik EZE Ж E URE FR 


Ta] 
Ке то EE C REIR SR кв, ВПС ТОРЕ ВЕНУ, 


BRIR 


КСРС ЖС, "МУЗЕЕВ NOU CH FR dg РОО 
> records <- read.fwf("filenase", widthsec(«,, wo ..., «)) 


ию 
а О He HH СҮ}. D Tine width лї КЇ} 
Fisher RA. 1890 1962 
Pearson кап. 1857 1936 
Cox Gertrude 1900 1978 
Yates Frank 1902 1994 
saith Kirstine 1878 1939 


BRE T MERE ЗАО. СЕРАЯ: "last name" MIO FE, "first 
пате” 10% FF, “year of birth" ЖАЛ, “year of death" WANE., (EROS 
WEZ lal fi УЕН аз Н. ТӨН СҮР. 


> records <- read.fwf("fxed-width.txt", widthssc(10,10,4,-1,4)). 


HAMO tewidths'ht0-i@5k ЛЕЕВ, read. бини CIAR 
ЧИН АН. 


> records 

v von м 
iFishr — RA. 1890 1962 
2 Pearson Каті 1857 3936 
3 Cox Gertrude 1900 — 1978 
4 Yates Frank 190 — i994 
5 Smith Kirstine 1878 — 1939 


ВЖ, Rif In ef BB) RIE. col. names uk BU 1091 А 


ә records <- read.fuf(fwed-width.txt", widthssc(10,10,4,-1,4), 





Col.nasesc("Last", "First", "Born", "Died")) 
$ iiis 
Last First Born Died 
1 Fisher — RA. 1890 — 1962 
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2 Pearson — Karl 1857 1936 
3 Cox Gertrude 1900 1978 
4 Yates Frank 1902 3994 
5 Smith Kirstine 1878 1939 


теа fuf RUUAT (FREE) 036 Cik Ese СНЕ, Blin EBI “Last” 
FIM “First” ЯНИ Е. ТОЗ Е 2 ftstringsAsFactors-FALSEM IGEA 
PERMER, 


8 Щгеад. (и БЕНИ НЕН ОИ GC PETS SC ЈЕНЕ, read.fwfiifit'óread. 
table M EEH, FEKETE KOE £ P ME LIR UC 


ELE 


Ж ЖЕ КЖ ХЕЧ. SET. 


4.7 RRR ЖИЕ АЕ 


(ад 
пост Мепен ха. 


мля 


(ЕТ теад хабе, HR GR — СНИ НЕ. 


> dfrn <- rend.table("flenome") 


Wt 
кина UR TUUS, ПЕН ПАО XK Kit. 
° Н жеж. 


° Иже, ЖА (ВЕРВЕН) dT RATER. наше. 
tab, HERKES, 


° жожизникнюмещ ЖА). 


Ханы Ек он ARE, нов — EH ACECIETOHTEHERI, КІН 
ПОПА ВАЖНИХ, МЕН ИНЕ ВЕЕ 


Fisher R.A. 1890 1962 
Pearson Karl 1857 1936 





88 | Жаж 


Cox Gertrude 1900 1978 
Yates Frank 1902 1994 
Smith Kirstine 1878 1939 
Hilitread.table/H х СНЕ. КОЛТ. "E BUE BRIDE MEOS ARTE (25 
Нела) : 
> dfrm «- read.table("statisticians.txt") 
> ріп (айти) 
м им м 
1 Fisher R.A. 1890 1962 
2 Pearson Кат] 1857 1936 
Cox Gertrude 1900 1978 


3 
4 Vates Frank 1902 1994 
5 Smith Kirstine 1878 1939 


КА СОК ВЕЈК ЖӘС MNYATE, 
An CHER. (2) РЕЗЕ RITE, MISTCUBEA Te fe РИ, 
> dfrn <- read.table("statisticians.trt", sep=":") 
RARO B fer ИТЕН Rob а лт, (Ul АЧЕЙ ИВ АЕ, ide: 
WM, ROTH TASER: 


> class(dfra$v1) 
[1] "factor 
№ TB Il read. бал ей HEFTEM ЖЕНЕ ИЯ. sTUUMEstringsAsFactorse Miti 
ЖЕАЕЗЕ 
> dfrn <- read.table("statisticians.txt", stringsAsFactor-FALSE) 


> class(dfrn$vi) 
[3] "character" 


Je ЗЕЕ, TRAF. 


ПАЖ FRA ЕНИ “МА”, Шгеадсавтев JC (C, ИНС 
МА, WHB3CHESTREADURISIE RES АЧИ, Па, өйтіп ШОТ И. Ф| 
ҒА АА ТЕЛЕ БИГЕ J HERBA : 


> Фет <- read.table("flenase.txt", na.strings-".") 
RE "ERFURT пана. Розлив. (НЕХ 
ЯСНЫ TURE. ) read. жар ей БЫ HEISE Hes Ж-. SIUE 


аита EE, ERES Ред E ВЕР РЕНО I MR, CR CUR I 
RUD RERO НИ. TU СЕТУ 
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lastname firstname born died 
Fisher R.A. 1890 1962 
Pearson Karl 1857 1936 

Cox Gertrude 1900 1978 
Yates Frank 1902 1994 
Smith Kirstine 1878 1939 


ЕИП" ЕЕ штеай tablei, MEXA GLA ERES, Hel ЕН 
bot AL 

> dfrm <- read.table("statisticians.txt", headersTRUE, stringsAsFactorsFALSE) 

> print(dfrm) 

lastname firstname born died 

обе R.A. 1890 1962 

2 Pearson Karl 1857 1936 

P Cox Gertrude 1900 1978 

А Vates — Frank 1902 1994 

5 saith Kirstine 1878 1939 
read. table ИВОВ УНН ПЕВТ, CES. (в) эКИ ЕД вА, EST 
LM eii be i AR ВЕНН ЯЕ 

# This is a data file of famous statisticians. 

# Last edited on 1994-06-18 

lastname firstname born died 

Fisher R.A. 1890 1962 

Pearson karl 1857 1936 

Cox Gertrude 1900 1978 

Yates Frank 1902 1994 

Smith Kirstine 1878 1939 
read.tableWkiGE fiir АЈОВИ ete, ВМИ сви, HIER VC 


ш. 


»взя 


An (I BO X HEELS ВИЕ КН, ДУЛЕ ЗАЛОГ У ера ft. 


4.8 СУХИЕ 


в 
ffi B Rus ВАМ (Comma-Separated Value, CSV) ХН. 


RRR 


read.csviR ЕВА СУ MR КЕ, шесвужа ние, ПЕТ: 
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> tbl c- read.csv("filenase") 
AURCSVXHEAR E Ar ВЕ, ИЕ пеайегій Я ДРАГЕ: 

> tbl c- read.cev("fename", header-FALSE) 
ию 
HFH ЕЕ ИСУ А. HEGE, жънат. ШК, Ехсе ЖІ 
ВАЖНА. MERKE, DUK ВИКИ. СЗУ ЗОР АНЕ 


fF, хане TB. lg FIO IRR ря. FOR SERT 
ШЕЛ Jiff)CSV Ж} (WFR, th И ЖЕ, ВИНЕ ЛД) : 








label, bound, ubound 
1o,0,0.674 
mid,0.674,1.64 
high,1.64,2.33 


геад. со viRA KRE ONE СНИ НЕ, 8 — АЕС НИ НЕКА ВИА. МЕНЯ 
WWP], FINA read. св НЕ Kf fob PS. 


> tbl ‹- read.csv("table-data.csv") 
> tbl 
label lbound ubound 
1 low 0.000 0.674 
2 mid 0.674 1.640 
3 high 1.640 2.330 


ТЕ, read.csvi& талдата А fide it Я As 


> tbl <- read.csv("table-data-with-no-header.csv", header-FALSE) 
> tbl 
и м в 
1 low 0.000 0.674 
2 mid 0.674 1.640 
3 high 1.640 2.330 


ШЖК" ашы, ИЕ ВЕ Веадет BOUFALSE, RA A MER- ЖЕ А 
Ж СИМ. vafuvs) : 

> str(tbl) 

"баба, frame': 3 obs. of 3 variables: 

$ label : Factor w/ 3 levels "high", "low", "nic 


$ ошта: num 0 0.674 1.64 
$ ubound: num 0.674 1.64 2.33 


Read.csvif Е РЕ А ЭН ат вв ЊЕН (ЭЖЕШ) , HF 











LASTE 


данаға, 3EIMIUR недавни. веза ROLL abel ER RU ОЯН 
AETHER TEAS ERIE: 

> tbl c- read.csv("table-data.csv", as.is-TRUE) 

> str(tbl) 

"data. frane': 3 obs. of 3 variables: 

$ label : chr "low" "aid" "high" 

$ bound: num 0 0.674 1.64 

$ ubound: mun 0.674 1.64 2.33 
ЖЫЙ ШИНЕ ТАИСА ЖОМ ааз. 2 РИЗИТРОРИ 
IEE ERAT: 

> tbl <- read.csv("table-data.csv", as. is» TRUE) 

> str(tbl) 

'data.frame': 3 obs. of 3 variables: 

$ label : chr "lov “nid "high" 


$ lbound: num 0 0.674 1.64 
$ ubound: num 0.674 1.64 2.33 


EB, пар REFER, SERT, 


ВОЉИ (#) EFIE KNER ВАЧ AHEM, Xx Bat TEL (e fH c en 
imf. ТОДА сотпепе . char» "EE ТРОЈЕ 


Vülitread.csvfi HEWE, ЕЛ CLIE ВЕЗАН А. ЖЕРЇЙ — (7. ВМ 
Wort, HAKI, РАВЕНИ КҮН, КАНЕ ТРИ ЈЕ GMI SM. ЕНЕ ЕА 
тм ІІ. 


»взя 


#1449. fi Xread.table AKMAN fe FRM ЙІ. Мей. +аЬ1е Ri tread. 
csv Me ihi. 


4.9 5 ACSVX ft 


T] RR 
ffi SUAE) RAF EI ME CECI d BI REUS LO HR 


NURSE 
illturite.csvsIELOBECS V kf; 


> write.csv(x, file-"flename", row.namessFALSE) 
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ий 
write.csvil ДСУ 3c Pe WR HERE HESS] —1-А5СИҖХ Н. MEHR CHE 
вв. KEES (,) OM: 


> print(tbl) 
label lbound ubound 
1 low 0.000 0.674 
2 mid 0.674 1.640 
3 high 1.640 2.330 
> write.csv(tbl, fies"table-éata.csv", row.nases-T) 


Ele THE E АЕ 7-4- 6. АлаМе-даба,сөуЙ ЖЕ, ШСКЕН ИГЕ: 


7label*,"1bound" ,"ubound* 
7low',0,0.674. 

"mid" ,0.674,1.64 
"high",1.64,2.33 


ВЖ, НИКОЛА ТКАНИНА. ПД со] names-FALSEPKCE IKE „ 





ЖІП ЖИ row. names-FALSE, Wii ic Zt ВОЕЖНИЧЕПО АНИ (row.names) fF 
ПОМИ. ПОЕНА АНЕ. MR агі е. csv RI HEU ff 
МИ Иа, hun FICSV ЖИ: 

77," label", "Ibound", "bound" 

715, "low" ,0,0.674 

72", "nid" ,0.674,1.64. 

"3", "high", 1.64,2.33 
TRA 2MIECSV ЖЕЧИ К ЕТ Ла, KERER row. names- FALSE. 


Hüwrite.csvfi ЕТА, HH EK EAARDACS V HR СРЕ, режат 
Nate te ТАИ НЕЯ. РИД НЕ write. table Ва JC lees (EH HR 


write csv Cg — K RUM (E РЕЖИМА СНЕ ВИТ. TAE ита ке карте ЖЕ Ж) 
к=. 


55855 


ЖИ ТЕН Жі, ВИЗ, еб SLT E44. 


4.10 MPI НИСУ НЕ 


ад 
ка ннен БАВОВНА АЕ. 
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Нађ 


fi теад.сом. read.tableLlAscant& И, ДОКЛЕ БОКИ ЖЕНА. X Hed MC 
Arf CHRIS 8 ERGE: 


> tbl <- read.csv("http://wes.exasple. cos/download/data.csv") 
ib a| Lili URL EH Kik EE. ik FR E BRT OE EFJ X. 
ию 
феа ТИНИ. ИХ ВОВСЕ, АВАНС. 


вино КИНЕ И ВОН 2097; (E. (Ei теаб.с5у. read.table, сап” Е 
URLbhE UW BIA GRE НОВ SES ЖО. EEA ЕКИН. PRR UH AERE 


ТОВКИ, AH RKR T уа sih fr ft) cs V MX CERTI 4.12 fr 
BUT ИСА ЕСТЕ OT E PIN ЕНЕ TE ih. 


itk: URLAMFTPBS  ЖІНТТРІЕ 2/4. ik ESR ДАКЛЕ НОВА АРТ РУНА, 
тїнї. 


> tbl <- read.table(*ftp://ftp.example.cos/dowload/data. txt") 


»взя 


зи ра вита. 12, 


4.11 HERRHTML ЖЕНЕ 


Ta] Bi 
Jf t АТЕИСТИ а ао АЕН, 


NORTE 


fE HR0XML tq ff)readHTMLTablerñ 8k, Фейт UR TCI ATIS A RHEE, Ага 
ОВЕН; 
> library QOL) 


> url <- "пер: / лави. example.con/data/table.hta]" 
> tbls <- readWTMLTable(url) 
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ЗАВЕТЕ КИНО ВЕ, ШЕ иа ск. Tul fei cR UL rb Ж = 4 #& 
Mitra 


> tbl <- readHTMLTable(url, whiche3) 


Wie 

BATA STEEL: ® HTML WB. (EHI readHTMLTable(url)tfife ik ik Dî ñirh B 
ЕРЕ СТ SOR IER, ЖЕ ЕУ ВР УЗ GE ME 
ЖАША ЛЕЙН, ИЕ S Boh i chen НЕ ЕАО eH, MU is bd ing 
ЕН. IN EUR JEROME. 


FOU fH Дай readHTMLTableff)GUR, ЖА ЖҮРЕ} (Wikipedia) ВИ 
"World population" WT PKAN eM: 
> library(XML) 


> url <- "http://en.xikipedia.org/wiki/Morld population 
> tbls <- readiTMLTable(url) 


HOR SORIA 6177-28. 
> length(tbls) 
[a] 17 


ЧЕРИ, И РАИ АОРТИ РГ ЗСТ А O k 

+ BITE f tüvhich=3, 

> tbl <- readHIMLTable(url, whiche3) 

кян, Жжтж саби RERO À FUE 
> tb1[,c(2,3)] 





Country / Territory — Population 





1 А People's Republic of China[44] 1,338,460,000 
2 А India 1,182,800,000 
3 À United States 
4 Indonesia 
5 А Brazil 
в А Pakistan 
7 А Bangladesh 
в А Migeria 
э А Russia 
10 А Japan 
a А Mexico 
a А Philippines 
із А Vietnam 
м А Germany. 
5 A Ethiopia — 79,221,000 
16 А Egypt — 78,459,000 
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ЕВА таны. Жайна 8 то ЕО пісодет +. XX 
rB fj RB UNT. РГ ВЕЛЕ ЕН РАВ Е ЕТЕНЕ Р ЗН ХИПК. ЯМ, “the People's 
Republic of China" (HEARRE) ЈЕНЕ T “14417” FF. ERREEN, ВИР 
за —ЉИНЕЗ ИТ, МНЕ ВИП И. Ж ЕЛЕНЕ, Л ПИВА 
қәне, SEHR HONEC АЗЕ ЊЕНЕ. BURG AS [ЕД тан ACHT IHR IE 
Mie, ТЕМА E E AERE ВЕРЕ IUE — 43. 

ifi ER £URRHTML «нова 9000 EI. HTMLA EREA T ЛПХ 
жк, ШІН ZR BUB, ЛЕМ ARERR, AHi ИЕНЕН 
MEREN. RIL, ЕЕН НИИ ТЕР BGB Е НЕ, АХ МТ, 
JSONRICSV |. 


И Жгезйнтмтавте Ж Рквухм оф, "хм а X EDGE X ВК. XML IL CHE A 
Аацъхтово ко, ЖЕНЕ HW RE O FRH О. (ELinux ЖӨ, E 
kR Ma GL ЭТС TIE HI Linux fF 0жт12- config 


PRSA 


KFM ЕЙ Ек, AxM, 20771539. 


4.12 RUE A ИХ Е 


із 
КО AE OH СИ. 


RHR 


° fiHireadLinesiR ЖАД й йу Т, RIEL FETE HE RIS ЖАБ ЭШЕ КИДІ, 


° ЮЖ, EJlscani а Лос, ЗЕ What e Bio c Here I oci. 
VR CIE ТИТ ЕС У Да А HUNGER. 


үне 
Ant Br fi 08 B БІН AE Tr е ЖАРИ, ВБ ПРИ РЫН Ыр. Telit iE GE 
Жтеад арте ее. 


Ке Ета 1 
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ЗВ РАЗРЕЗ, i EO T (EXE ЖИ ЖИЕ ЯНЕ АКТ. И 
read.tablefütfifitread.csviiAE TI ЖИВУ, PIETERA. 
АШ, readLinesMiscan A МОСЫ, РА А ПНЕ РАНИ. 
ПЕЊЕ. 
FitkreadLines Ей. CRH HAIA ЕНД RO GEF Ж. 

> lines <- readLines("input.txt") 
ПИ S Brno RU A MRK: 

> lines <- readLines("input.txt", n«10) 8 Read 10 lines and stop 
эсап ЖИВИ ОК. РУКИ ИЕ (token) , HERMETE, Ihi 


АННАН СОН В), ЛЕЩ Хыһан, босап 
MEHRA XEMLE. What fe ODE H He ВНА (ETE P 


what=nuneric (0) 
НЕМИ. 


whateinteger(0) 
ЖЕЗ ен. 


whatzcomplex(0) 
НЕВИНИ важи. 


whatscharacter(0) 
Биси та 
what-logical(o) 
Баира SPEC, 
scan А ЖМЕМ, HAME B ORC. 
тих а PIM RRR, ATF HR: 
2355.09 2246.73 1738.74 1841.01 2027.85 
{E Jlwhat=nuneric (0)8 Ж Ы “iki G1 — RIKA ТК ле 
> singles <- scan("singles.txt", whatenumeric(0)) 
Read 5 itens 


> singles 
[1] 2355.09 2246.73 1738.74 1841.01 2027.85 
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ѕсап II — AVE, what ЕРДЕ & LETENNI. 5сап В 
Wikita Rk тоа. Яш, Boite Gn F = CHURI: 





7 2396.21 2,207.73 
2067.47 1,616.21 


15-Oct-87 2439.78 2345.63 16- 
39-0ct-87 2164.16 1677.55 20- 
21-0ct-87 2081.07 1951.76 





(ДУЖНО АНА сапе с, BR c Pede HR = Ж и HEN: 


> triples <- scan("triples.txt", whatelist(character(0),nuseric(0) nuseric(0))) 
ХРАНИ лата scan th Ж HEC REME С. 


> triples <- scan("triples.trt", 
+ Matelist(datescharacter(0), highenuseric(o), lowsnumeric(o))) 
Read 5 records. 

» triples 

зіме 

[1] "15-Oct-87" "16-Oct-87" "19-Oct-87" "20-Oct-87" "21-Oct-87" 

$high 


[1] 2439.78 2396.21 2164.16 2067.47 2081.07 

1 

[ST 2345-63 2207.73 1677.55 1616.21 1951.76 
зсап GE fi Vr JUI UE JO ДЕ JUI Dm e C : 
nenumber 

Ийлипрег Љ Wl tp ERG (А RREI) o 
nlines=number 

ЗАНулитьег Fi RR IG HE ШЕМЕ. (ки СЕНЕ). 
skipsnunber 

MOOR И BE number а WEE ri. 


na.strings=1ist 
ЖЗ ТЕН МА, 


ха 

CUERO A бай дъ ОШОН. StatLib e ihi Patek З ЧИЗЕ 
ВИЕ. ВИК T — 1 Әмвегіезі 3 к (dataset) , "RR Т M1903 
ECRIRE RUD OL, ПОЗЕ ЖАННА, ZERFE, (KT 
МАВСИМИ Ар tu F MF: 


1903 LWLbenk 1927 мөм 1950 ма 1973 дим. 
1905 мумии 1928 We 1951 Шм 1974 манны 
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1906 ымын 1929 мызы 1952 Лиман 1975 lulu 


1907 Waw 1930 Wille 1953 МЫШЫН 1976 Mas 
3908 ммм 1931 Пен 1954 Ммм 3977 Ммм 
1 сек.) 


Wolle ЗАТ F: Lt Ей. ЛИВНА, ЛЕВЕ, w Ея 
кн. изкоп AEGITE АЯҒЫ, ix PUR T БРИЈЕ НЕ 


FIRE RAE PE VG Pe CHE : 


# Read the wseries dataset: 
. = Skip the first 35 lines 

H = Then read 23 lines of data 

я + The data occurs in pairs: a year and a pattern (char string) 
. 


world.series <- scan("http://lib.stat.cmu.edu/datasets/wseries", 
dp = 35, 
nlines = 23, 
what = list(year = integer(0), 
pattern = character(0)), 
) 


scanif GE ЯН, Job GLA ИР7ЕЖ: yearfüpattern. сапр: ХИМИ 
WAR AMOR, Үні Сн ИАЕА „РАСЕ АЕ ЗОНУ МЕ РЕЗЕ GE, 
> vorld.seriessyear 


[1] 1903 1927 1950 1973 1905 1928 1951 1974 1906 1929 1952 
[12] 1975 1907 1930 1953 1976 1908 1931 1954 1977 1909 1932 


| ete.) 


FT CA FREA FAE HEREA ЕМЛЕНІ MOX — РЯ: 
> perm <- order(world.series$year) 
> world.series <- list(year = world.series$year[pern], 
+ pattern < world.series$pattern[pera]) 
29 T f ELA ЕН, ВАГНЕРА Е ERATA: 
> world.series$year 


[1] 1903 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 
[12] 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 1925 


| (ete) 
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> world.series$pattern. 
[1] "UiLbenW" "iMd" мо“ 
[6] "аман" "Wd" “ман” 





[11] "waw" “ыы” "Wil" “Walla — "wlwlW" 
[16] "мемы" "wllMWMW^ "LIL hie” "bé" “ішілік” 
1 сек.) 

4.13 iEBXNMySQL IHR EE FF f UE 

ад 

ВЕЋ Чому ОЕ E С. 

MAHR 


1. *EAERMySQUBCIE GL, 

2. йдСоппес# ат 4- Bd iei. 

3.  fMiidbGetQueryifi Де — "SELECT, HE IL ARA. 

4. МОЈА. HEHldbDisconnectiñ Mtt il: ЕСЕСІНЕ, 


не 


MOI ИГЕ ЕНИ. k MERMySQLEL, БЕЖЕ. IER GAEEMySQL A навие, 
EMYSQLE BU УЗ НОЛ, MKS 0 МуЅО ТШЕ, щеки ЕЯ 
КОД 


НЕ дрСоплес ей Ж 5MySQL GE Hi 
Bot WR oS E UE I ie e 





ЗЕЕ. знания, 2 JG ORMySQLER 


library(RMySQL) 
con <- dbConnect(MySQL(), user-"userid", password="pswd", 
host«"hostnase", client.fageCLIENT MULTI RESULTS) 
MEU Eclient.flag=CLIENT_MULTI_ RESULTS EARR £ #4 ЕЕН. Bp (fe Bia 
ТОНЕ К, КРИВИ ЊЕ ЗЕ ИЕ cLient.flagf ft, H MMySQLTT ffe 2 TE 
л А БЕ Ж. 


ЗВЯРА (username) ‚ ЖЁ$ (password) MEYL (host) SEE CGSliiimysqrk 
ЛУНЕ МУЗ ОИ f. Но. Eit Tp ХЛ BORA SIdbConnect 
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ІІ. KEH, ЗЕНОН ЈЕО. АКЕ ЕУ HORE RERO ЖТЖ, 

жатан. БН ЛЯ, ПЕНЕН ЕН мн, кил 
MARARA EUER MED. Пале ВЕ МУЗ ОТ Ф ИЕК. # = 
зивтемузомув и ХИ, ЖАЖЖЗНОМЕ/-ту.сп/ (UNIX F) ЖІСАту.сп/ 
(Windows F) , РАЙАНА А Aik fikir, ЖЕРД TED Wq E, DU 
An[client], HERA [client] BSH, ИНК X PEEL A tn FAIRE 





[client] 
user = userid 
password < password 
host = hostname 
ARG WR SC Per IE GOES Ee, ЖЖЖ ЕШ та Соппес НЕВЕ, НИИ 


MET ПР 

«on <- dbConnect(NySQL(), client.fageCLIENT MULTI RESULTS) 
fEHldbGetQueryiñ НИЗ ОЛЕНИ, RRIARI, ERAM, М 
JE RC Ae TEMOR BEH : 


sql <- "SELECT * from Surveyesults WHERE City + ‘Chicago’ 
rows <- dbGetQuery(con, sql) 
чата ша СО БОТ EUM, EE FUE TURON, ТД REF (E 
JHSELECTME], {ЕЕЕ RA ЛЕ ЙОП ЛАА АТО НЕН. (n, RACAL Li 
4, ИВАНЕ SERI, НАВЕЧНО: T ICA JC(SELECTIH 4, 


Е HidbGetQueryi Ji, IA HH ОВ A МОЕ Hep tus EI c НЕ, БОК 
жи, АЛЕН ЛЕНЕ. РА ЖЖ АШАТ. ПА AER ШК. NONU, 
ааа ааа ЛЕ, RIECK AE A PRIA РМ НЕНА АЕ. 


EAR ILL диктат, MySQLGR BUB о s ДАЛЕ. ЕЗГЕШЕ} 
ЖАК P oed ee s LO, LULA GARS ULL. GW MySQLA ET A 
МАЊИНИ ик, ЭРЕКЕТ. ЗЕМ и СДИ dbNextResult а с: 


if (déMoreResults(con)) dbNextResult(con) 


ЗЕ MODBINHldbGetQueryiñ йж зе ® RE, ЕЗИП ИЕТ теа НИЕ (др 
IEE) . ЕМА. fERldbDisconnect ЖЕСЕМ. 
dbDisconnect (con) 


ПРИЕМА ВИТ МОЕ Her OE SR ET BENA, 3 IIB MERE {E2008 ЈАЗ 
М. БЕЛІ, ВУЗЕ ВЕ XT myenfic Еф. 
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> con <- dbConmect(MySQLO, client.fageCLIENT MULTI RESUL 
> sql <- paste("select * from DailyBar where Symbol 

+ "and Day between '2008-12-29' and "2008-12-31 
» rows «- dbGetQuery(con, sql) 

> if (dbMoreResults(con)) dbNextResults (con) 

> print(ross) 








3 








Symbol Day Next OpenPk High?x LowPx ClosePx AdjClosePx 
1 IBM 2008-12-29 2008-12-30 81.72 81.72 79.68 81.25 81.25 
2 IBM 2008-12-30 2008-12-31 81.83 83.64 81.52 83.55 

IBM 2008-12-31 2009-01-02 83.50 85.00 83.50 84.16 84.16 

HistClosePx Volume OpenInt 
1 81.25 6062600 MA 
à 83-55 5774400 МА 
3 34.16 6667700 МА 
> dbDisconnect(con) 
[1] TRUE 


Ai X RMySQLITURCYURVE туш, BLES SUR MUSEI PRI S HF 


RIE TELA АЕ ОИ ФОНОВ, (46 Огасје, Sybase, PostgreSQLLI E SQLite, 
TERRAE RUR МОВ А ЇНЇ) CR Data ImporUExport) HF (Ж 77516), МНН 
XCHEABREESECRANIAOR: (Artp://eran.r-project.orgldocfmanuals/R-data рар) (KN. 


4.14 etr fei BBR 


в 
RE ERE TRE PRR RETIN, RER AARE EMEI ВТЕ ИИ. 
"s 


RHR 


81 замени М EAM SC: 





> save(nyData, file=“ayData.RData") 
НОМ ОСЬ ЗЕНА PHI Е, (EH Load iO CHER E 
> load("nyData.RData") 


аме ЫС ВЕНА. ЗИДА СПИНА OR E, ШІГІЛ Три: 
атр. 
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> dput(syData, files"syData.txt") 
> dump("myData", fles"myData.txt") # Note quotes around variable папе 


Te 

Rm Ri) CHE GG ET ЕЛЕ lal rb, {Н ЯГЫ ЖаН ЕН а Е ТЕН, 
Еп, Қ-А, ЖЖ А. НОВ T Petre, АЕК А 
Linux ВЕК fF #|Windows# iF, 1оайЖІзауей НЕТ esc X — RIRE: save 
Mie ТЕМ Р MP GO STARS ИН, 1оай ЖЕЙК ДЕА Ж XC 


о тоа фи, ЈУЖАН, MEETER pree, Нежен 
НЯ Acte de eb, JE (ДРЖЕ) EKEM AR, ВЕ НЛ оаа 
жи, Tutti ТОНОВЕ. 


> myData <- load("nyFile.RData") # Achtung! Might not do what you think 


ВОЛЕ TREE, RAHEHknyData а О RIO, iuxta ЛЕ EH CLA 
EFLA p, ӨЗА T load квоти Е, T ACT JURA. 


замей «LLL СИМАХ, САВЕЗЕ. EM Uf E НИЗКИЕ СА СИЗ 
RAH. RABE PIYE ORTE, GE Gr LAS CIE IR P ST CL fe VELA f 
ЖОШЫ. ҰМ, ТОД Ору Ча дитрей ft, ӨН ЖД АСПЕН. 


APPERER GLrb НИЗ ИЕН АВ ЖСК. SIRRA katki, REA ñ k 
Айс, ЖИН ЖЕ, ША. THER GL, URN EAM RI 
И. (4n, BUE Нео от —^ ді НЕЕ, ЗЕН. ЖН RENAN 
z-RData Wc (db, F tf r4 ат жедім. 








> load("z.RData") в Create and populate the z variable 
» plot(z) # Does not plot what we expected: zoo pkg not loaded 


TREE RR ME zoo КИМ. ЖА оо: 
> library(zoo) # Load the zoo package into memory 


> load("z.RData") 8 Create and populate the z variable 
> plot(z) # Ahhh. Now plotting works correctly 
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ЗВОНО, ERENI (vector) , ИЗДАНИИ АЖ. ЖААН ER 
ЖЫ, ИНИ (matrices) ‚ ЯФ (list) . HF (factor) СУКЕН (data frame) 
Зу. nA ЗИ НЕВЕ, i ГА E 20. Мв 
РС EA 936 36 b ЕСИ NR A КИН УР N 


An Rf ЕЕ {4% Ж ВАХ BEEK, АЕ ИКА CR in a Nutshell) 
(O'Reilly) Жі (R Language Definition) RAER, ЖОНЕ НЕЕ. MIK 
WERKE, Док k REI N TREA, 


па 
поно ет, 


22770 
ЛИР TCR. (element) SAHIR, ЖЕЛІК ЖЛ, A 
ВХ. (mode) „ 

T ESTHER REE 
пиву Гора таа а 

ийине ИЖЕ, EFI I i 
Wükv[c(2, 3) ЕЕ РЕВ (subvector) , EOAR- NERE 
жж. 


МЕЖ ТЕ б 
ЛА (names) МАЕ, МЕНЕ (length) ТАНЕ А Erde. 4 
ЖЕДЕ ЫЕ ек, Ив: 

> v <= c(10, 20, 30) 
> nanes(v) <- c( "Hoe", "Larry", "Curly") 
> print(v) 

Moe Larry Curly 

9 20 30 

#n l toer. ВА ИЛИ БАТЕ 
ж ЕШР: 

> v["tarry"] 


Larry 
20 


IR 
ПРВЕ ЛЕРИ 
ЖЖ (is) TLS ЖИЖИ ЕЖ, MRAR, PIERRE RIN 
RM, ТО В А р, (A PL RC ТАИ VE ОНИ 
ЗА (data structure) , 
BIA Hefe eal 
Wistist[([2] MEISNER. EEK HME, 
AIRF Mh ape РАЈЕ 
ИАН st[c(2,3) HERR stt) P|. "zt f HOTEL s C. Н = 
ЖЖ. EB, хилки фона. 
ПЕЈН TAH ERR 
IE st[["Moe"] 91156 5мое ПИСАРА 660 " Moe" ПЖ. 


А СВЕ У РРА НДЕН UAE IEP 
WH PHIFER (dictionary) . МАРА (hash) , ЕЕЕ (lookup table) —# 
(2177459). CARENE, У ВОН ВИННА, ТЕВЕ в, 
Еа WORSE, 


Hk. RAXA 

ЧЕКИ, ААР t. ЖШН Rn GET TERRE Rs OU 
ЧИЖ (number) , FFF! (character string) . HAIER ФОА (list of 
pointers) , НЕХ Л (function) $, Blin: 
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не 


Number 
Vector of numbers 
Character string 

Vector of character strings 


Factor 


List 


Data frame 


Function 


Я; 
3.1415 
(2.7.182, 3.1415) 





c("Moe", "Larry", "Curly") 

factor(c("WY*, "CA", "IL")) 

list("Moe", "Larry", "Curly") 
data.frame(x-1:3, y=c("NY", "СА", "IL")) 
print 





ах 
numeric. 
numeric 
character 
character 
numeric. 
list. 

list 


function. 





Без тобе IRAE. BELA. (bm; 


ЕЕЕ И 


X: важи 


> mode(3.1415) 
[1] "numeric" 
> mode(c(2.7182, 3.1415) 


[1] "n 








* Mode of а number 
* Mode of а vector of numbers 
# Mode of а character string 


»"lary","Curly*)) — s Mode of a list 


ФЕЛА, ИН ТЕЖА А na aem 
Eth, ЈОЖЕ УПАО ЛУ 


HERSKE, ЛЯ (object) ВАСИН R Ж (class) „ТЖ 
MER ИА А ЕКИН ИЖ. МВС ИДИ £ IE 87 SL. — EHE 

нін лайв, EBORE HS HOS Лемке, CAES MO" ж 
я, Hifi TS Н [ЕТИ ЭК ЕВС Ж. 


Bin, —^HNI (Date) IHRE i k fce 


>4< 





> mode(d) 


[1] "numeric" 


> length(d) 


аз 


as. Date(*2010-03-15") 
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s% 


ТЕ НИЖЕ (Date) Жа АЕ ННН УОЙ, Ш, H 1970411 ARRIK 
к. 


> class(d) 
[1] "Date" 


HERKE, ЗН НЕЖНОЕ парк TERR. Dn, ENE Ертіп ЛИЯ 
(WAHE) ЖАТИ ЖІ Ж (class) 94%, (П F Ждата frame. Date. 1m 
(Өлі Ж RIME. RITEAR, ВАК КЕН АРНО ЖЕ ЈАВЕ printi 
mk. 


ян 

Ж АННЕ АЕР SIS RH. ЕЖЕ, пуйки лет A UPC GL TI MC 
Ж. TERK, CEARN: HERE GL GL E ЛЖИ. ЖБ ЖЕ 
Ri “RU. НОЕ “ИЖ” HM, 

ЖЕК Ж pi, ВОН: 


эрі 
[1] 3.141593. 


EPUM е ff) a 
> length(pi) 
[m 





+ ВИЖ pi AL M HR NC 


(ЕУ SUE, REH НӘ Ж т: 


> pila] 
[1] 3.141593 


ШАЯН DEK, MZY же: 


> рца] 
м 


ЖЕ 
ЖЕККЕН, ВЕ (matrices) АН (dimension) ПМ. tt EE FH EAE 
Ж, APRE CA HEARE BR FA fi AE HE IE VO 7 — HDE. 


FR — НЕЕ (dim) ‚ ИА ИЦ, d ЕЙ. 


»Ac 1:6 
> din(A) 
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p" 
> рама) 
1123456 


чая THU 1 п НЕ, ЫТ. BERNI Ж ЕК1 R2 х ЗЭР 
жне, ТАЊА: 

> din(A) <- c(2,3) 

> print(A) 

ба] 62] [3] 

h) кў 

Bi 2 s 6 
№! XL CHER T — 42 ХЗ. 


НЕАБ АТД ЯАЖ ONE. БЕ, ПЕВА — dimit, НИЗ (HD 
ма). 

> 8 < list(1,2,3,4,5,6) 

> din(B) 

ми 
MERNE dim НЕ, ТОЈ О 


> din(8) «- с(2,3) 
> print(B) 


We e HEP AERE RT — 2 x эу, 


ЖИН (array) 


БЕЛЕ ЕТ ТТТ У УЗ РУТ (RA 
Ж) ачат. ЖЕНЕ T —1-Ж#& 52 x 3 х 24036 ЖӨН; 


> D <- 2:12 


> din(D) «- с(2,3,2) 
> print(b) 
Án 

ба] 52] 1531 
i] з 3 5 
[5] 2 4 6 
E 


1,1] [2] [53] 
7 9 n 


а, 
[5] 8 ао i2 
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ЖЕЖ, НЕРЖ ENAH, ХИ: БН “HE . 


НЕЕ ВЕРЕ | 
вдажежавид, бананите ЛЯ, МЕНИЈА ЊЕ 
Я. алет. 

ЗЕНЯАХЖТААЯЛЬ (кода). КИТИА-ЛЯЖЮЯАЛЫ, м 
FEAR, MOEA HERE, UF RBH AAIE T — b MU e ана 
тд. 


> € c list(1, 2, 3, "X 

> din(C) «= c(2,3) 

> print(c) 

ba 52) 531 
Эф: 


er 








HARRELL EHE, 19 AUR ИХ - ЉУБЕ ОТТ 
увито. кеңажаття, 


ШЛ FREE OT RE HORDE я ЖОГ SUUM D. Ка. ЗЕЛЕНИ 
МЛИНА, ERA ЊЕ, Ню, БЕСИ TAE MORGEN UE 
НАЗНАКЕ ХАТ GERE, HIERHER. 


къщкопялени- "AST На. MIRANHA, њи 
ви. БЖЕНЕЗЯСКИ, ПЕЊЕ ТИ Р ЊИХ (AR 
ARRARIR k) не, НЕНОЉОЊНИКО E AR KEN A OL 
A (4124533). 
AF 
WF (factor) МРЕЖНИ ЕНИП, EARR, RE Mer ME — UC 
ЕЕС НАА FRKE (level) КЕЗЕР THERME OT А, OC 
ПЕСЕН Яғ. ТЕЗ ВЕБЕ НРА A H, AFA H~ HEIRS T RR Е 


ГЕРИ RHEE: 


LE 
НЕК А, ERFAR (contingency table) , 
НЕНІ (linear regression) . №7 (ANOVA) ‚ ЖІБІН (logistic 
regression) EUR VE НЕМ, 




















зна 
ЗАЛЕ УННН ИЖ Экс НЕ Ж. LMG Ж “ПЛ”. 


БЕДА 
MR (ама frame) ЗЕРНА. KE ЖЕЛЕ БЕЕК MORNE. 
hBi ЧЕБИН Ж. SSASRESPSSHP IUBE В. 


жик ВАА OREN) BRA, CARA. (UE, BRET EE 
KKM, вина I-A PRG 

` джин. 

DET Рини. 


ЕАУ ВОИ, НЯНЮ 
(height) , 


КТ ТИТ 223 

ET LE 

РАНЕ НЕВЕ ДЬААН, ECAR K НАНА Т VERG HORUM NES 
Wis 

22 ТОЕЛГАН ВРНЕК, Ядат). dfre[ [i] ]dfdérmnone, 
* ОДН ЖШН ла%. Bdtndfrm[i,j]. dfrm[i, атту, j]. 


Ar BS НЕ РЕЈ ДИ ST REOR Ue F атана 


SEI ADI 
MR HO ними. TES ИОН. REALM AZAR HIF E 
R. ЖИРЫ, JEFLURSTEUR # ЕМИ ЕП. Pb sTEGR A 
варак, ЖКА 58 

totes (SQL) PRU A 
Map кан. ЖЕНЕ ВЕНЕРЕ, АТОР Р АЖ, Ж 
FIK EMRE. REESE, РАДЕ УТД НЯНЯ ИУ, 


#1: -Фвивтишяж, птиленпова. ЊЕНА НЕНА, ж-е 
финиолзожентикакк. REZ, ARR P HMA LELIA H BLA 
A. 
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Excelfit Hi 
ЗЕ РА, SOKUDE ЕНИ Т.Е #. CH HUM, RTTE 
Нава. 

БАЗЕНЕ 
ЗЕЕ: БАБИ, ЈОВИЈАН TECTA E. ВП ОИ. 
УВЫ, (НАМЕ. Bale Ub T fel ар, 

КЕЙ 
Е ЛЕОНЕ, Ui тежи, BRD AIR, ВОЕН 
тракт, АТА НКВД ENE, KIRRI — MEEME 
RREME., НИНЕ АЕ, Jed pp det cob HR НЕЙКІ, ГЕИ АТД ME 
ЕТЕН EN. 

HW 
Band вее. ИРАК, JER SERIAL Ok i. ЗЕТЕ, 
KAF. МЕНЕ. РУПА НО. ВОН АЛАНИ ТОН, 
аза алал талл ЖЕНИ РЫА], ERF, RE 
ЖЕНИ 4 PIR. таван). 

E 
шалт қалала ТІЛЕ E И-И СНЕ, sf 
JUEZ DUE E UTI Be E 


5.1 XH] RR pn UE 


Тај ад 
жаный Jn EO НИЯ 


Мал 


ШНЕК (с) KEE РГ СРУШИ 
> v €- c(v,neitens) 


ACER RUE, ЗГЕ Ino ОЛЫ F — IL CERE. RRA A Ж 
йй: 


> v[length(v)«1] <- nexItes. 
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не 


An Relais o THE Jn Bats ERK, RADDI AM. 





жа. RSET GL TEL ЧЕМ, ВАЖЕН. И ITEM 
жда тия? шеніне. RO cT E ТИТ. МОРАМО, GEI 
щащ, MAFANA, FRET, кит ТЕЖИ OR LIE, камо 
жағанан. WAMEKAA, ЗЕН АЮ RUE. 
desti. 





ко, ЛИВАНЕ Е. Ro dE, “E ILL ЕРЕ FERRO ñ TC 
(c) EET BEER, HUGHES ЯЙ. IR BIRDS АЈ БОЛЕН) 

Уж. зет ЖЖЖ. OX T UE D GS 

> v € (1,2,3) 

> v € (ма) 8 Append а single value to v 

у 

blasa 

> w € с(5,6,7,8) 

> v e co) 8 Append an entire vector to v 

Y 

id asaasers 
крави наи патос R EPH E, шама жез 
ж. FRE, ВЕКЕ ЕТА A ат. ТОДА а с, ОКО IG OK 
ОСУ 

> ve c3) 8 Create a vector of three elesents 

> v[10] «- 10 8 Assign to the 10th elesent 

# R extends the vector automatically 

[3] 1 2 3 МА NA M МА NA МА 10 
Вж, КАКО ТРНАВА ЈЕНИ. CREM (МА) ЖСК REIR НЕ ЗЕТИ ЕН 
Кж. 


ВЕН —Ларрепай%, БАНЕ ла — EA Ok А HI f Ж. pR 
ij, RAR жен ИУ A ME Е НЕ REDE HR СВАИ ШЕН, 


5.2 FE] E rh dr А.к 


із 
Ts ERE e ® ПРОСТА 
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RRR 
ЖА, Hitappendiit Ha кет Е ЕА KR, ЖЕНИ 
ЕВА, 


> append(vec, newvalues, afteren) 


We 
ЕА GR ha Fere BOR UL. DUEB GE ЕЗІНІН (057200) 
M A 8699, 


> append(1:10, 99, after=5) 
[1 123459 6 7 8 9 10 


ЖӨ ба}ет=о, Ek TEI MOS ACER A Ве: 


> append(1:10, 99, after=0) 
(119 123 45 6 7 8 9 10 


KS ИННЫ AGE. n CHE MIL СИЈА А аА, ФА 
шараптан ала вв, ПАК а аи, 


5.3 НУ 


вм 
ОГ 


не 
роза ИМ, кА ЖО ВИЕ. чери ние, THEE 
ға. каноны ЗЕН ТЕЗЕ НАМЕРЕН To Herc. 


АНЕ, ЧИН E HET ТЕРЕТА gn 


TEX EMIL, КЕРИ. ҚАҒЫ Ружа, ЖОЯМЫН S а yË 
Ж. ТЕЖО И, Наа е ааз BEATIOR TIRKA REDA RIL 
ЮЖ. ЗАМ, RAPE ТЕН ае, Зак” ІЕС Ж, AMR 
ЧЕН АЖ. HARAREY. ЕНЕ СЖ, 
HAMMER. 
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sp DUE I FD 06560 0109 ог НИЕ. ТВЕРА РЕНО НЕ, 1: GERM: SKE 
ж, ие. 

1:6 1:3 

1 


2 
3 


оловом 


ви, IMEI GEER: 3K. «ЖЕ :6) + OIETARA, FEK ВЕТ 309 
%®ЖЖ% Т. Ат, КӨНЕ: 3495Ж. ТИАН ИННИ LIU HL 
FEAH 6 Уж: 


1:6 1:3 (1:6) + (1:3) 


Jau س دوس د‎ 
ценове 
озове 


TA FA (s E АТН : 


> (1:6) + (1:3) 
[1] 246579 


ARDUIS BEBE PE RIEUR ИЕМИН, ЖОБ ГС. Hi c bi ПОТЕ PUT E, Han F 
МАНА HEL +: ДЕВЕТИ ОКС 


> cbind(1 : 6) 
Га] 
8101 
(lo: 
[5] 3 
814 
[5] 5 
[6] 6 
> cbind(i:3) 
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а-а 

в] 2 

[3,1 3 

mat ЗАП КАН БЕ Be e SE i зао ГОГ ВЕРА TH He RE Ва 
É). HFK : KRI, ЭТДЕН сыпи ВАМИ Н. ОК А C SC 


> chind(1 :6, 1:3) 
Га] 
1 


ЖИ СИ Ж КЛЕЯ ЕКЕШ И i e HERO АЕ, ВАНН — RS. H GR MAL e UG 
шакта тагала ОДАТ Н ИСТРИ 





> (1:6) + (1:5) # Oops! 1:5 15 one element too short 
[12468107 
Warning mes: 


ge: 
19 (1:6) + (1:5) : 
longer object length is not a multiple of shorter object length 


тает DAE I AUT КЕЛ, 
ЧЕРИ fh, 1040605882 CN nist e 


> (1:6) + 10 
[1] 11 12 13 34 15 16 


5.4 HERF (MPRE) 


(ад 
во АЕ ВИНЕ. MEERE, RERIN 


Ж (categorical variable) , 





NORIS 
factor Bee EIL HARI HT 
>< factor) # v ds a vector of strings or integers 


UR] Met 6 & — e STRE HIE ТІНЕ Ж. B. БЕД — 4 8 OR ULTRI TIN 
ЖӘПЕЮЖӘЕ (level) = 


> f <= factor(v, levels) 
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Wie 

кви, ВЕ 22 ВЕЗИ пеш —1 Ж. (level) . ЛЖИ 
ВИА (factor) . AFER FARKAM 98-6, ЭЗЕН БЕГИЕВА Н! 
More HRS; HG ЈЕР БЕН. 


КАЛОНЕ, TUAW асова оно З НН ЛР, ААА 
жеміт ж ж ЈЕВР ERAT: 

> f «= factor(c("in", "Win", "Lose", "Tie", "Win", "Lose")) 

+ 

[i] Vim win Lose Tie win Lose 

Levels: Lose Tie Win 
Hg, АВИОНА ИЕА, RIKEBER ERMA НИЕ 915. ik A AEk FT 
tyd. ERER, AWMI TDP, RAER T ЕУ T CRISI KG, 


шии Оо ГН "ГЕ ЖЕЗ — f R. IO ZR KI A t Bo TT EK FASE МЕНЕ 
B. (BLUE UII ЛЕММИ, 12 мд ау, CRR ide s in HU CT p wp 
2 Я, 


> f <= factor(wday) 
>+ 


[1] Med Thu Mon нед Thu Thu Thu Tue Thu Tue 
Levels: Mon Thu Tue ней 


RUM, МЧ. J8 RUN = AE DURER STRE ACE, MENAH. ви. ЖЛ 
ЖИЕНІН, ЭТСЕ Ж BUR Д ЭТИМ. ЯН (ка E I ОВА ид а у. 
TOUR РАЈ Pro STEAK 

> f <= factor(wday, c("Mon", "Tue", "Wed", "Thu", "Fri")) 

PE ed T Pon не Tho Thu Thu Tue Thu Tue 

Levels: Mon Tue Wed Thu Fri 


ЖИЕК НЫН EIE — 4 Я БЛ ЕЖЕ. "Elo Fait (00 IE ВАК. ВИЖ 
MER ZN, ХРЕНЬ RUE НИЕ ВАН. W 4 EBORE CT EAN 
мн. 


ек, ЈЕЛЕ МЕНЯ Ғастог. КРИВЕ РН, "Cil 2) 
наннан f. Blin, карте О РА РАНЕ, край Елия АННА. 
Wf. ЧЕ ЕРЕ ЖЖ TERES МЖ НЕН. LW Cp OT — A 
TER. 


ж: жанын, СЕНЯ И A ILU Local Es ване. 
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ASA 


ао БЕН ОНЕ ЧАТ. 
5.5 # ЛЕЕВ š ИТ 


в 
влашки, ЕИ о ИТА Е, BERKE M вест LAM Л 
Ж жива (ILU а. 


мал 


QI АЕ I г ER, stacki ІЗ Е — ВЕНЕ: 
> comb <- stack(list(vievi, v2=v2, v3=v3)) 4 Combine 3 vectors 


ООСС values find. За — Яа кін. ана ENEFA. 


не 
шала взет 1 K i ОСЕ СИРТ £ УУ ALI GR 
Wes EXC RPM СН 


прие, X LUCK = PEN ПАДЕ (Наш “ЕЛЕМ: RA (1 (LIA 
HAE Sp? " ) . MER = GIA, НЕ freshmen. sophomoresRüjuniors, ЕЙ 
SOLIDE Veil ETE Mr, ЗЕ EG Жа o vh Е — ЗАЧЕТ 
ЖЕНИ УЕ, IEH stacki Bc fr tik МИН. 


> comb <- stack(list(fresh=freshmen, soph=sophomores, jrs=juniors)) 


> print(conb) 

values ind 
a 0,60 fresh 
2 0:36 fresh 
3 ом fresh 
4 0/62 fresh 
S 0.60 fresh 
6 оло soph 
7 061 soph 
8 0.63 soph 
9 0:87 soph 
10 0.85 soph 
11 0.70 soph 
12 0.64 soph 
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as 092 jrs 
16 от је 


БЕДА ЯНЕ EDR: 
> av(values ~ ind, data-cosb) 


ЗА TIR, АГРЕ Е ВЕНЕ (GEI DET P. ЖЖ fresh. 
sophfüjrs) . ii баск fcri; НЕА TIGE, ЯНА ПЕ ТР. 


5.6 ПЕЯЖ 


а 
ЯНА ии. 


NORIS 
тайак MAH HR ODE PER 


> lst < list(w, y, z) 


не 
паста Рети, Pin F ita = es 


> lst <= list(0.5, 0.841, 0.977) 
> lst 


He 
[1] 0.5 


(02) 
[1] 0.841 


(зи 

[1] 0.977 
АКТЕРА ЊЕ, ЕЕ АЕА ([[1]]. [[21). 137) ose 
Rte 80 THEIR (Bm, [1] 0.5) . 


жөні, Яжкжвиж, тажы (жт) (Ж. TIRE T Bb 
МТ, Rh IER. FREH. кийнин BELA HU PLE 


> lst <= list(3.14, "Moe", c(1,1,2,3), mean) 
> Ist 

сал 

[1] 3.14 
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[[2]] 
[1] "же" 


(зи 
[11123 


а) 

function (х 
UseMethod(' 
«environment: namespace:base» 








ТОД ӨЕ език, РЕЈА НЕМА AU Jr oe Mis АЈ. ЕНЕЛ E 


Vatt tri tr plk, 


> Ist < list) 

> Ist[[1]] «= 3.14. 

> 121 <- "Moe" 

> 1st[[3]] e c(,1,2,3) 
> 1st[[4]] <- mean 


MTRT. ОУ RRR: 
> lst <- list(mid=0.5, right=0.841, far.right-0.977) 
> dst 
Snid 
[1] 0.5 


right 
[2] 0.841 


Sfar.right 
[1] 0.977 


ASA 


ERER “IA” ЊИХ BHAS IMATRA. 


5.7 RELEE P A SE 


217 
Палата атта 


ЕУ 


HUF HETUAR, Job. 1stib— БИЛЕ, 
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1st[[n]] 
МЕНЕ" ck. 


lst[c(n, m, ..., )] 
BAP ЖУН, METR Hb n erf RAME. 


EE, ВИРА В TORIS иа T И. 


үне 
VERE ЧЕ АТЧУ SERI PIRE, years: 
> years << list(1960, 1964, 1976, 1994) 
> years 
(ал 
[a] 1960 
(21 
[1] 1964 
I) 
[1] 1976 
KOJ 
[1] 1994 
ЗАТ EBRII 09 oe Ur f] ЕЗ ACR 


> years[(1]] 
[1] 1960 


ЗАГОРАЛА НИНЕ ЖЕНЕ (sublists) ; 
> years[c(1,2)] 
сай 
[1] 1960 


Lt21] 
[1] 1964. 


Ева ИРИНА ОФУ зе, dE Roi: 1st[[n] nis t[n] 2 (61-65 REME 
Ж. ПЕН) 


1st[[n]] 
жи TOR MIAR. БАЛУЕВ, TK. 
ist[n] 
JEEI P|, METK. KIRINEK, URBIS OE. Е 
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1st[c(n,,n,, ,n,) 8 — $f, ERA Нс...) АГ, ЖаН 


dM п. 


ITER REREH, CARERE ---СЕКТ. ЛИ 


як: 
> class(years[[1]]) 
[1] "numeric" 


> elass(years[1]) 
[1] "ist" 


РА ВИП Вес а Cl НАПАЈАЊЕ, ВАЗА XS RETE АНА. Иса" ТН Ж 


Meli. (АДЕ ТЕАТ НЕН 


> eat(years[[1]], "\n") 
1960 





> cat(years[1], "М 
Error in cat(list(...), file, sep, 611, labels, append) : 
argument 1 (type 'list') cannot be handled by ‘cat’ 


fl SES ROUGE ши T Way. ЧЕХИ Г, TIERS DDR Khi JIE RM 


ЖАШЫ Т ИРЕ ЕЧЕИ RERO AGAS SER. БУК. 


5.8 НАВАЛЕ SUR TCR 


із 
T gm A sU] ЯО сж. 


вал 
МАТЕЈЕ SERE, TI ТЕ I FER: 
18 тате" 1 
ЖЖ папе тв. БАИЈА ТЕТЕ, БВ МОЦА. 
1st[["name"]] 
ЖЕНАТ, SERERE. 


lst[c(name,, name, ..., name,)] 


Жана se 8 teru E ЖИП кв. 
EE, МИЧЕ — ТЕЖИО NATERA. 
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не 
Pep dg ЈЕЖЕВА тай. ООС ӘЖ. Шапан хе жіп ДК 
ЕЛ. РИО Т —4 TIT e И: 


> years << list(Kennedy«1960, Johnson=1964, Carter=1976, Clinton«1994) 
ШЕРИ ЗНН, 8162,9) "Kennedy" HEK: 
> years[ [Kennedy] 


A FHT ITE РИК years rfe Huff) РК: 
> years[c("Kennedy" ,"Johnson")] 
Kennedy 
[1] 1960 


Johnson. 
[1] 1964 
> years["Carter"] 
Scarter 
[1] 1976. 


Miri HERI AA t Wie 9126 хе Ж КИН IF (Произв SUES, ДЕФ 007057) o 
ik 1st [[ "пате" ] ] 41151 "пате" ] Z AEREA, CERERA: 


1st[["name"]] 
EMER, МЕЛ. 

lst["name"] 
BAAR, ПАЛ, "EJElst[c[name,, name, ..., name,] ] 9—8. 
xL HET FUE A (пате) , ВИДЕ... 


PRSA 


МЕНИ GE HER ИНЖ, ROUES. 


5.9 МЕ — АЖАН ВЕЗЕ 


JR 
SEE GEHE OKA PESE PE t ИВ ВЕ pr pH BS Pr ФГ (dictionary) . 
МОЖЕ (hash) , ВЕЧЕН (lookup table) . 
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ЖЕ 


НЕМ ТЖ. ОПЕ — ИЖЕ. 
> lst <= list(mid=0.5, right-0.841, far.right=0.977) 
ARCH Bn SE TI] k. АТД QURE — ИЗА АЕНА ЕТЕЛ ИЛА ВЕ E: 


> Ist ç list) 
> 18 потез] <- values 


ию 
Fide t Роже A, Ti ато Н ИЛ. KAT АБ 
MEF Т.А: ЖЮК AS Mtf E 7). 


MORAR, ПОРНО UL Жз Ак. HR List CIF лоте=уа шей) f t « 


> Ist с list( 

+ far.left»0.023, 
+ lefts0.159, 

+ mideo. 500, 

+ right-0.841, 

+ far.rights0.977) 
> 1st 

Sfar.left 

[1] 0.023 

жен 

[1] 0.159 

за 

[1] 055 

right 

[1] 0.841 

Sfar.right 

[1] 0.977 


fü ACRI ЛЕОН езана UOCE 


> lst < list 

> 1st$far.left <- 0.023 
> Ist$left <- 0.159 

> Ist$mid <- 
> lst$right <- 0.841 

> Ist$far.right <- 0.977 


AERE AAE АУ S R: 








BRAH 


8 





> values <- pnorm(-2: 

> names <- c("far.left*, "left", "mid", "right", "far.right") 
TURARA, RENARE, ANATRA RAA ERIE 
ИИ: 

> 154 «- list() 

> Ist[nanes] <- values 

> dst 


Sfar.left 
[1] 0.02275013 


[1] 0.1586553 


said 
[1] 0.5 


$right 
[1] 0.8413447 


Sfar.right 
[1] 0.9772499 


“ERR, ITLL ЛУПА ПАО РГ МЕНИ ФИК “М” RENI: 
> cat("The left limit is", 1st[["left"]], "w*) 
The left limit is 0.158655) 
> cat("The right limit is*, lst[["right"]], "w*) 
The right limit is 0.8413447 
> for (пя in names(1st)) cat("The", nm, "limit is", lst[[na]], 
The far.left limit is 0.02275013 
The left limit is 0.1586553 
The mid limit is 0.5 


The right limit is 0.8413447 
The far.right limit is 0.9772499 


5.10 JA SIX rn e ТЕ 


T 
ЖЗ ИЛЕР BBA TCR 


МАЛ 


Заги ва СЖ, КЕНЕТ АЈА ФИНЕ. 
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не 


Нл, ЧЕН Ес. АЈА НОЛИТ: 


» years 
Kennedy 
[a] 1960 


Johnson. 
[1] 1964 


SCarter 
[1] 1976 


Clinton. 
[1] 1994 


> years[["Johnson"]] <- NULL 8 Renove the element labeled "Johnson" 
> years 
Kennedy. 
[1] 1960 


SCarter 
[1] 1976. 


устол 
[1] 1994 


"ПАНА ДНА # JO 
> years[c("Carter","Clinton")] <- NULL # Remove two elements 
> years 


Kennedy 
[1] 1960 


5.11 ЯЗ И Ыш 
іш 


EHE таква e Gp (НАСОС URGET МИНА ВЕ). 


МАЛ 


за ита, 
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Wt 
ПТ ОРАО СРИ РОКИ — IH DULCE NEU ERA, Я 
#1, inJRiq.scores& — PUEMA, ЗА ВИПОВЕ CHH WJ ЕЛИ: 

> mean(iq.scores) 

[1] м 

kaming message: 

In вези. default (iq. scores) : 

argument is not numeric or logical: returning МА 


TEC UE, PTUS AUT Кап АЕН та, RHR ЖЕНИ. 


> mean(unlist(iq.scores)) 
[1] 106.4452 


Fili SPF, ПУТУ ТОРУ УПИТА 
> cat(ia.scores, "w*) 
Error in cat(list(...), fle, sep, 611, labels, append) : 
argunent 1 (type list!) cannot be handled by "cat 

AME] EAE EAT ED WP ERG (CO ik : 


> €at("IQ Scores:", unlist(iq.scores), "\n") 
10 Scores: 89.73383 116.5565 113.0454 


ASA 


KME MUR Jj (ES 33 b Ai EEIE. 


5.12 ДУЖИНЕ BE (МИП) ВОЉЕ 


в 
МАНИ. ЖЕРІ. 


RHR 


ВНЗ ЛА ТОНИЈА. ССА СНА РЕНО СЖ: 


> 1st[sapply(1st, is.null)] <- NULL 
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е 
MUR HOIDERERNUL ЛЕЖИ ЗЕР, RIER ВАТТ 
RAR, ЫЛЕ T ЗЕЕ. TFI TRADI Т.Е: 
1. RÜUHsapply: fé ficis. nuT У РАЕН 49 елек. 
sapplyi въз Ия как. АЕС Ж Ён, GE ЕТЈЕН. 
НЧИ IR Zeh IE AIHA 8 D P| de ie HUE DG ТЈЕР AERE 
ОМИ АЛЕН ЈЕ, АРЕ Heb ЕК. 
ЖЗИ TEE ЖИИ Жун ЖЕБЕП СФ 770510) , НА ЧТИ АЖЕ 
АЕ А аш ам Ж. RERIN — A D &шц DERI 

> lst «- list("Moe", NULL, "Curly*) # Create list with NULL element 

> lst 


[tin 
[1] "oe" 


вв» 


(ер 
жи 


[31] 
[1] "curly" 


> lst[sapply(1st, is.mull)] <- NULL — 8 Remove NULL element from list 
> dst 


НЕД 
[1] Woe" 


211 
[1] "curly" 


E E 


ЖРТВА, WS LIOS 10. 


5.13 f FB A ЊЕНЕ О 
ie gi 


ЖЕНЕН ЖЕСЕМ ФЕВ жж. ЛИН NTF KENAR. 
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Бал 
ЖРА тиня. (ЕНШЕ UAI ж ЖЫН ВНЖ. 
lin, DL FÉ E EA PIRE ВЕР UA : 


> 190156 ç o] << MUL 
ию 
ACIE UE FROM 4 НЮ. ИЖ, "НН. ЖА, 


шара талы аа тар ааа А ТОЗА, W, TLEN 
РАЕС ЙО жәнее. 


У И 2000966 ААА s 6488406. Ho — ТОДА ЖЕЛ: ЖЕ АН 
Ж (150 == 0) , ВМ ЕЕВС ЗЕ НМА ИИА ЕП. 


зіме 


ПИО CEA | ЕВ ИН ОМА RITER : 





о] < ми 


> lst[is.na(1st)] <- NULL 


SANAE, RRA. НУЖЕН, HRT. XEM 
RAR HILE НЕН. MEREERIN, Min, MERE ВЕНУ 
IMIR, (URGERE, Жар S HERRERA: 


> Ist[abs(1st) < 1] <- NULL 
Error im abs(lst) : non-numeric argument to function 


JR MUS J; ЖАНИЯ в BunlistiE ARH, PARA: 
> lst[abs(unlist(1st)) < 1] <- NULL 

ЖОРА e ME (EH apply iñ BC: RE FIRE FER: 
> 1st[lapply(1st,abs) ç 1] <- NULL 


PURA STURM GO S, TA ИЛЕНА. #йїйто454&—/ НИ me Po o 
PER. CFARGRASCHHEBREERIR ICI TO 3005 8089 : 


> mods[sapply(mods, function(s) summary(s)$r.squared < 0.3)1 <- NULL 


PRSA 


#1 7457. 2045510. HESI, ЗЕНОНА. 
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5.14 ЖЕНЕ 


[E] 
НЕЕ ЧЕЗЕНА Е E 


МАЛ 
ЗАЛИВ PER ВЕ, РАЈЕ Н HR Мата tr ix HE REVERE, РАЯ 
А ИШЕТ — О х ЗЕ (НЯ): 


» matrix(vec, 2, 3) 


не 
TRUST RE GI ME TER (C— 42 x HERE, АПЛ — ААИ, ЖА 
JH таст ојл COMPE 


> theData <- c(1.1, 1.2, 2 
> mat <- matrix(theDat: 
> mt 

Га] 10 [3] 
[1] та да 34 
2,] 1.2 


2.2, 34, 3.2) 
) 





matrix ЕЖЕН, WO TPB. MEEKER. Ж, JERNE 
AITAREN, 


ВИП И ЧИС, MANOR МАЖЕ TERE. опата хеб Вж. 
Mi, MB RIZ AA йи Е FD МА LUCR HIE E HERE: 


> matrix(0, 2, 3) # Create an all-zeros matrix 
Га] [2] 53] 
° o о 


2l 
„| о о o 
matrix(M, 2, 3) # Create a matrix populated with NA 


ЭП ЕЕ, 4R, БОЖЕ. 
> mat <- matrix(c(1.1, 1.2, 1.3, 2.1, 2.2, 2.3), 2, 3) 


ВИ — ВН 2HRAEDUE TEE Лиеж ЗЕРЕН, 
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уйым» е Md за ак, 
2.1, 2.2, 2.3) 
3 mat ‹- matrix(thebota, 2, 3, byroeTRUE) 
VER byrow-TRUE вета Ета ХВО Ab rif EBE PIS (ik ESA 16) . фл — dtr 
жй, Blin: 
эме синие, караз, 


2.1, 2.2, 2.3), 
+ n3» TRUE) 


нанухиж, УУ ЕРО WE FT BINH. 


AEA Ж АБР ЕЕ ЕЕ, ааа. XWERE тя И 
Wie. ТШ -ӨНЕ T — Uli ЖЭНЕ EHER — 172 х 309 889 : 


> V € с(1.1, 1.2, 1.3, 2.1, 2.2, 2.3) 
> din(v) «- c(2,3) 


[3] ]2ر[‎ [м] 
1 аз 22 
2 за аз 


HRN, А АА НЕ Н таті е КИНИ, ICA ik HUET byrowi ii, 


ELE 
#1253. 


5.15 БИТ ИЈАН 


[E] 
PREMIERE, амен. ЕРЕЖЕ. ЗЕРЕН MERE. 


RIR 
қа) 
KEARSE. 
solve(A) 
SEAR. 
A %*% В 
JEMA БЕВ, 
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diag(n) 
тон (Wd) EBE. 


Wie 
ABET TERORE, хдд. 


вазата. ЕПЗ У У РРА BRE, m RE BRE, ЖА 
ИЕТІН (PR FUR УВО НЕ ЈА Ы СУ ВЕР ГО) o 


5.16 НЕ а ЗЕ PERO 74021 


вм 
ЗОРИН — MEPE TRA. 


RHR 
ВЕРДЕ ИГ — M rownanes MHERI—co1nanes ЖЕ. ТОНЯ e: а ROMA 
ии, 





> гомпатез (ва) <- c("rownase, 
> colnames(mat) <- c("colnose, 


wie 

Rc Vr SIE ЛЕЊИНА — ЉУБИ FER], CEA IB CAEDE UIT R AME X 
Т. RAREN., НАНА АЕ. ХЕ ІВМ, MicrosoftfllGoogleZt ñ) 
Me RU Me C MO ВЕРЕ 


> print(tech.corz) 

51-121 L3] 
(3,1 1.000 0.556 0.390 
[2,] 0.556 1.000 0.444 
[3,] 0.390 0.444 1.000 


ВОЉА, АРЕНА HEE лынан. ПАЗИ БЕТТІ LAR, ВА 
кайын жж. 


> colnames(tech.corr) <- c(IBW","MSFT","G00G") 
> Townames(tech.corr) <- c("IBM","MSFT","G00G") 
> print(tech.corr) 

IBM MSFT со 
IBM 1.000 0.556 0.390 
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MSFT 0.556 1.000 0.444 
0006 0.390 0.444 1.000 


Зак IRIS ПЕН ИЕ нея EAE CR Ж. 
ЯНВ Я — ЛАЗНЕ, ааз СО FUROR ВЕНА E: 





> tech.corr[' ,"000с"] # What is the correlation between ІВМ and 00067. 
[1] 0.39 
5.17 JB ВЕЖЕ — (ТЕ: — 91 
GE 
RENEE Я. 
MRAR 
МӘКЕН ЖЖ. mie ak РАЈС а, ЖЕЗДЕН ЖЗ. 
> vec <- mat[1,] 8 First row 
> vec <- mat[,3] % Third column 


Ji HORAE —1° EHBPE RAE 1 PUEDE, MEE GL агор=ЕАСЗЕ 


> том <- mat[1, ,dropsFALSE] * First row іл a one-row matrix 
> col <- mat[,3,drop-FALSE] # Third column in a one-column matrix 
ий 


а, АНЕ ЊУ (тб АЈЫ, ВАТРЕНО K KE. AN E 
ГАНЕВ АЕ 

> мача] 

[1] 14720 

> mat[,3] 

11789 
Ат. Чой ftdrop-FALSE, КАФАНИ. НК. E FOR EL 
йй (1 х пере) + 

> mat[1, dropsFALSE] 


Ba) 52) 53] 54] 
и] 1 4 7 1 


БЕ, Ж Rtdrop=FALSEE E — PR Б WL P| k (— Њих ERE) . 
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> mat[,3,drop-FALSE] 
[а] 

п] 7 

D] s 

в] 9 


5.18 ВЛЕЕ МЕ 


в 
СЕУЛУ 


МАЛ 


tii МЕ (RR) AFH, Ме дата franti NAAR 
ж: 


> dfra <- data.frame(vi, v2, v3, f1, #2) 


ЗЕНА (RA) АОН ЖЫК, Иа „даба. frane: 
> dfrm <- as data. frase(list.of.vectors) 


We 
НОД т, Bec IIMS F — MARA GX QUIPE XL 
йж) . Жаннан иа ИӘ РТ I CR Неја IURI. 


даба, ҒтатейЕ Н ЕКВ Rl НЕ, Job p LORI ният 
ДУВАН ЛИН BUM Ей, БП — 1-2 БЕЗИ РР. на дата. Фтапе ви ЈЕ 
"EADEM и 8 


> dfrm <- data.frame(predi, pred2, pred3, resp) 


> т 

predi pred2 pred3 resp 
1 -2.7528947 -1.4078410 Ам 12.57715 
2 -0.3626909 0.3128696 Ам 21.02418 
3 -1.0416039 -0.69685664 РМ 18.94694 
4 1.2666820 -1.27511434 РИ 18.98153 
$ 0.7806372 AM 19.59455 
6 -1.0832624 AM 20-71605 
7 PM 22.70062 
8 PM 18.40691 
5 PM 21.00930 
10 АМ 19-31253 
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ЕЖ. И Чата. frame A UTE РЯ 2. FC OO E t| ЖИЕ BLU 1 9 
E 


> dfrn <- data.frame(pispredi, p2=pred2, piepredi, т-тезр) 
> т 


p2 p3 r 
-1.40784330 AM 12.57715 
0.31286963 AM 21.02418 
3 -1.0416039 -0.69685664 PM 18.94694 





| (ete) 


Bob HR SURE, (XE NOE GEH ЭЖЕ, ЭНЕР, da EROR. 
> lst <- list(ptepredi, p2=pred2, р3-ргей), тетезр) 


ЖОМ TEL A Каз data. framed 5] ВОЛАНА — ВНЕ: 


> as.data.frame(1st) 

рі p2 p3 r 
1 -2.7528917 -1.40784130 AM 12.57715 
2 -0.3626909 0.31286963 AM 21.02418 
3 -1.0416039 -0.69685664 PM 18.94694 








ев.) 


5.19 іт 1k НЕЕ 


вм 
НОА, ННОВа. 


ШЕ 


Mig ЕВЕ O von geb. НХЛ a e ce ile mde. АЛ 
напао. са HES £146 i ВОН. 


> dfrm <- do.call(rbind, obs) 
ЖИ, 055 — I Fre ПЖ. 
ий 
ЕТЕДО BI ЖАР. ERN (observation) Ж—41-@®1{(Ила 
ж. ЭШ ТАК А, — о Ина ЖАНЫН. d EAM 
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јеж, пати а JI, SPICE БРДО (0714.12). кеч. 
UM. (observation) АСЕКЕ жн. RIE, MEKANE 
ЖА]. 


БН FESTE REEL E RE. — LTB ОАЕ ЖЫ Ж. ЖИЕН 
ОНИ BG (numerical data) , ФЗО HERK. 


жп, Език. pR ЖИВИНЕ, ЖӨНГЕ, SERI БІНЕ 
№, ВЕЕТ SERIO EME ТОНЕ. (TETEE PE 
th, ХН НИ ж-е, ) 


ЖАРА, MUCHO, ЈОАНА ER: predi. pred2. pred3fü 
resp. MET MEET, РАДНО УЗ ЕАО НЕ. xe e НЕ ТЕЕ. 
СЛОВА. obstt)f — ТЕ ЛЕЖЕ вр. 

> obs[[1]] 


predi preda pred — resp 
1 -1.197 0.36 АМ 18.701 


OBN tr ik fE P Mr E ВНЕ НЕ, з ЗЫН 


ROMERA- I BIA РАТОД АИ гЬ пажа, "CHAR A ви 
Hir (Ehe, НЫ ТЕНИ. 0n. IM RTI bi па Cr ГЕН 
за, ИЕ ЛОС ТА eH, m 

> rbind(obs[[1]], obs[[2]]) 

predi preda ртеда — resp 

1 -1.197 0.36 АМ 18.701 

2 -0.952 1.23 РМ 25.709 
RATE HO AE TORUM EE, IR EM. ТУР PRAG T A: 
№. ИЕ. а ПА Нот кек, HMEKWHAKrbind: 





> do.call(rbind,obs) 


тезр 
18.701 
25.709 
21.572. 
14.392 
19.841 
25.637 
24.585 
16.770 
14.915 
17.948 


k fa RAE H BRE E FE IO АНЕ, 
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ЖЫ, ЧЕЙИИ НЕН ZS, ФЕРМЕР КР ЧЕ А Еве НЕ, Dm, ФЕ 
Vy E SERRE Ны БІН. ЕЖВЧЕЯК, от — ИУ, ПА 
Ея, 


ИТТЕ ЯЛА мар онн Е НВ BH НЕ BGB, ИК FORBES JE 


> fra <- do.call(rbind,Map(as.data. frane,obs)) 


PRSA 


жн, mik, 2518, БЕУЙИОЛЕЕЛЕФХТИН 
босай. 


5.20 RINT E RHE 
вм 


ii aber c ci m — Fr £ fT. 


RRR 


OIE 4 t ik E M FRONDE НЕ, HIE UH RRC b i n dE: SIE IER EUR MAY 
ВАНИЕ. 


не 
Шала салтана рата тата ЛИ 11 
Heb. МХ, АПЛ ОН 1 NERA: 

> пежом <- data. frane(citys "West Dundee", countys"Kane", states"IL", pop=5428) 


Жой, ВАГИНА Истра ndis лох t W (7 HI E АПВ ВИНЕ: 


> suburbs <- rbind(suburbs, пемйом) 
> suburbs 

city county state рор 

Chicago Cook п 2853114 


Kenosha Kenosha — WI 90352 
Aurora Kane IL 171782 
Elgin Kane IL 94487 


Joliet Kendall IL 106221 
Naperville DuPage IL 147779 
ArlingtonHeights Соок IL 76031 


1 
2 
3 
4 
5 Gary Lake(IN) ІМ 102746 
6 
7 
8 
9 Bolingbrook ып IL 70834 
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10 Cicero Cook IL 72616 


n Evanston — Cook IL 74239 
2 Hammond Lake(IN) — IN 83048 
13 Palatine Сок IL 67232 
14 Schaumburg Cook IL 75386 
15 Skokie Сок IL 63348 
16 Waukegan lake(I) Ш 91452 
47 West Dundee Капе позз 


тіпа TTE (Ein У 7 suburbs, ПЕЛИ. НЕЙ, Wii 
AL пенкон% — ЧЕ), (ВЯРА. (ЯНА сь], ) 


WEBRIDE, Wo ET LUCR НОЕ ВЕ НЕМИ РАНИЈА GW. тылай ас оа (т. 
ча, ВОДКА ЗЕ: 


> suburbs <- rbind(suburbs, 
+ data. frase(citys"West Dundee", county="Kane", state="IL", pop=5428)) 


топал К, MARIETA ВНР ви ТРУМАН 
> suburbs <- rbind(suburbs, 


+ data. frane(citys"West Dundee", countys"Kane", state"IL", pop=5428), 
+ data.frame(citys"tast Dundee", countys"Kane*, states"IL", рор-2955)) 








ЛЕРГЕ ДІГІ ШЕІТІТІІТТІЛЕТІГІІГІ 
цинка РОН. А, BIEMA AN E EMMEN, PIS IRIA 
SIRR. 





5.21 IEC HEHE 


Jî 
ЗАИТ ВОЕНЕН, ЕВО ВЕДАЮ RUD ЛИН. 


МАЛ 


38 ЛЯ РО ЖЕНУ TAE ODE ВСЕ НЕ, ВОДА В Kmumeric(n). сватаскег(л) #1 
factor(n), Bin. 


> dfrm <- data.frame(colnome1-numeric(n), colnamezecharacter(n), ... etc. ... ) 
ЗН, ПНЕ, 





Жамаш | 137 


Wit 

ве», коран ти ЖЕЛЕ УНЕ НЕ. HF ORE, KETM, 
{н 1з JT HERE ЕЕЕ ЖЖ Т. чинили ВАВ 
м, кәмене ЖЖ BER. К ат ЖИН. 


BU о e галка RV Hr ai RERO FIC. iE Ue PEE BUCO ће. 
кик, йи ТИРАН АНН. 


Wie OE — - 1 00000047. ЗВЕНЕ, "Е CCS PURI T FRR, 
WJH А Жпите стасћатаскет EAA, Adata. #гате} РЕНЕ: 


> N <= 1000000 
> dfrm <- data.frame(dosage=numeric(N), labecharacter(N), responseenuseric(N)) 


ВИЕЙ T — AAEH, 1000000 x 3, САНА. 


КЕ Ато Ат Ка ИА В — kr. PRR E N АВЛА Н E 
factor(n). HFIREFE OE AT, ВИН Е RE Ef ЖОР. MENTAT, 
ПБН Р Ж 01 a DIRANA FRM, ЗЕН ӨТЕСЕ ДЕН, IL 
MCA, LEI ВИ RR ЖОР, dn FB. 


> N «- 1000000 
> dfra <- data.frase(dosagesnumeric(N), 
+ 





labefactor(N, levelssc(^ 
responsesnumeric(N) ) 


“n, + 





5.22 Ug fr BECHER AE RU У] 


Ба 
Til E HI О И А Bc erbe а 


МАЛ 


AETERNI, ЭПРА, (in: 


дет 
a IF FERE, жиа Ed ти И] 


ЗЕРЕН, РНЕ A GRE RIL FETAR 
RER: 
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анта) 
ЗР УСНЕ, Венев Не те БОА ти |. 


dfrn[c(n, m, ..., m) 
3I Е НЕ, "НОЕ НЕ ву Вл, n, ПАНОВ... 


fa LUH ЛУ T roo щита: 





Фет, n] 
та (и ЯН). 


dfrn[, c(n, n, ..., т) 
ы-і. "dh TER, л, 


THEE, HEPES FERTILE ВИ ЖЕ Ж! (ЗАЗ ЕНЕ). e T Jc — 
RR El. 


не 

ЈАМИ НЕ ie PHA VE ® $A RBM. БАНКЯ ТЪЛПИ, FUE 
QALA РЖ. зара ІМ, MERTCE ЛЕ ЛАА как kick E Real ЫҚ, 
ПОДЕЛИ, MNES, Рачев. 


ЕДИП ЖЛЕ E 167 УЗ A ПЕН A: 





nit PIE ifi. 


> suburbs 

city county state рор 
1 Chicago Со IL 2853114 
2 Kenosha Kenosha МІ 90352 
3 Aurora Kane IL 171782 
4 Elgin Kane IL 94487 
5 Gary паке ЦН) IN 102746 
6 Joliet Kendall — IL 106221 
7 Naperville DuPage — IL 147779 


8 Arlington Heights Cook IL 76031 
9 Bolingbrook Will IL 70834 


10 Cicero Cook IL 72616 

n Evanston Соок IL 74239 

n Hammond Lake(IN) — IN 83048 

3 Palatine Cok IL 67232 

m Schaumburg бо IL 75386 

15 Skokie Со IL 63348 

16 Waukegan Lake(IL) IL 91452 
вппавяжтежтаваж — 9l, ИЯ — A: 

> suburbs[[1]] 

[3] "Chicago" " - "Aurora" "Elgin" 
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[5] "Gary" зона “Naperville” — “Arlington Heights" 
[9] "Bolingbrook" "Cicero" "Evanston" "Hammond". 
[23] "Palatine" — "Schaumburg" — "Skokie" макеат" 


suburbsh 7 — ИМЕЛ, BibAsuburbs[[1] HR Fl T — аА, Я 
ят, Виа ва РА. 


ЧЕЛЕН, ВРАНА, Biinsuburbs[1]s&2tsuburbs[c(1,3)]. (КИНА 
SORIA, АЕГОН Т УВС НЕ, КИ E Ж — 20] 


> suburbs[1] 


city 
1 Chicago 
2 Kenosha 
3 Aurora 
4 Elgin 
5 Gary 
6 Joliet 
1 Naperville 
8 Arlington Heights 
9 Bolingbrook 
10 Cicero 
n Evanston 
n Hammond 
E Palatine 
m Schaumburg 
5 Skokie 
16 Waukegan 


я 


АИ EL CBE P 0939 — RIA EA 


> suburbs[c(1,3)] 
city pop 
Chicago 2853124 


1 
2 Kenosha 90352 
3 Aurora 171782 
4 Elgin — 94487 
5 Gary 102746 
6 Joliet 306221 
7 Naperville 147779 
8 Arlington Heights 76031 
9 Bolingbrook 70834 
10 Cicero 72616 
n Evanston 74239 
m Hannond 83048 
із Palatine 67232 
m Schaumburg 75386 
15 Skokie 63348 
16 Waukegan 91452 


ВН — MERKE Fsuburbs[[1]]RIsuburbs[1]. ТИП EKRA ERAR 
AMER: 
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suburbs([1]] 
ваня. 

suburbs[1] 
БИЉАНЕ, книги A PJ. ix AEdfrm[c(n, m, ..., п) 
УЧЕНИ, ROKER.. J, зп, 


ЖЖ “Я 5 8 — ОНЕ AKR. BARRENA, Br 
DUE гише AT. W АЗ КОИ А танк, В 


а "MUT e" фа, ВЕХИ ЕЛИ ЖЕ. Xx ИО “ЕГЕН ІНІ 
HORT ЭГЕА ФЕ: TIERRA — РВАЊЕ, SORT AURI Fb, dne 
АЕА Ей. МА], FMR. 





> suburbs[,1] 
[1] "Chicago" “Kenosha” “Aurora” "Elgin" 

[5] "Gary" “Joliet” “Naperville” “Arlington Heights" 
[9] "Bolingbrook" "Cicero" “Evanston” “Hammond” 

[13] "Palatine" "Schaumburg" “Skokie” “Waukegan” 


за REALE EHE DE IH ик, dm Ae кик (METH) , ВЕ — НА 
LO 


> suburbs[,c(1,4)] 


сну — pop 
i Chicago 2853114 
à Kenosha 90352 
3 Aurora 171782 
4 Elgin 94487 
5 Gary 102746 
6 Joliet 106221 
7 Naperville — 147779 
8 arlington Heights — 0603: 
9 Bolingbrook — 70834 
10 Cicero — 72616 
и Evanston qns 
n Hammond 83048 
3 Palatine 67232 
14 Schaumburg 75386 
5 Skokie 63348 
% Waukegan уыз 
REE TH. HURE He ER IA ЯИС T GA: 
dfrm[,vec] 


йз ERIS, EI PB веки? канят. вместа НЕ, 
АИ, ИШ, GERIT EGRE. песна ЖИНИ. 
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Те ін, РТО Tbeb tB drop=FALSE, CERE E] — Bc НЕ: 
dfrn[ „мес, drop-FALSE] 
ME, ХАТА манат. CE CT HEHE. 


BHAL, За HWAPETES M Rc НЕ НЕ GRE p| AE ВРЛО JD. PONE UIT LUE ЗЕЙІНІ 
ARI PIGET, TU TP Ене. 


ASA 


$1145.17 ® T fE М агор=ҒА.ЅЕЌ ИЗ Р, 


5.23 ЖЕ ВНЕ ЖЕНИХ] 
а 


ЖЕНИ ABBE РЕНИ]. 


RHR 
ВРЕДА И, PRIA ЕХ ЖЕЙ k AGAT — 
dfrn[["nane"]] 
i I~, 9i пате. 
dfrm$nane. 
"jit, АДЕН Т ГАЈЕ 
EE PIRR KE $F ARERR а, SICUTI FARRER: 
dfrn["nane"] 
ЯРНО УВО НОН, 
dfrm[c("name,", "попе", ..., "name,")] 


JE STER AE T) — ВИНЕ. 








(ЕУГЕН МИРЕ Н ТЕ БЕЖЕ ЈЕ ЖЖЖ £: 
dfrm[, "папе" ] 

ЖЕФ. 
dfrn[, с("пате,", "пате", ... v) 


WE £p|3F B rE HT B 
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И, ЖЕЛЕЗА Б И IMMER СПА СЕНЕ), XC IRE 
яката. 


ию 
МЕДИНЕ HOHE LATE Ак. mI Rai Ак, HUE Pia dE ПО Ж ТЕП 
Ar m EORR. 


НИНА Wk ОРИЗ 22 UNUS ARR. (6265220 DUI CL GE 
Э, ESSET ROE НАЯ. ЭЛЕН Л 
FEW: 

. дет пате E [8—9], ПЖ — РАДЕ. 

• dfrm[c("name,", "name,", ..., "name,")]ig Fl— 4 CIBC, иж, 

° dfrn[ "nane" БАЗИ УНН, тежащи, ОЖД. 


° HEPES FERTILE ЯН — EEN. ТЕ ИМА ӘКІ. eux 
PAN ftl Н атор= РА ЅЕЌ Hie, 12745522. 


ТА: 
dfrn$nane. 


"ES E вета "папе" НИЯ, ІН Cp B FIRA И. 


СЕ ТО 


BLUES 23EEGE HER EPIIT Jj i 


5.24 EER AETA 


БІ 
ЯН A ERU Do RH на E CHOR. 


BARES 


WH ABsubset, Б еее REE, RENAME: 


> subset(dfrn, select-colnase) 
> subset(dfrm, selectsc(colnose,, ..., colname,)) 





HERM | 143 


dX. ПАЖЊЕ. 


Si subsetlEikzE FU ЛЕНА. (Xx OER, FILE НЕНА 
№№. ЖУЙ, тезропзе МЕКО — Я, ВИП Етезропзе ЛЕНИ: 


> subset(dfrm, subset«(response > 0)) 
ме iiselectfüsubset ttt, subset IE SI NC III 


> subset(dfrm, selectc(predictor response), subset-(response > 0)) 


Wie 
JE An (E Jjik5 2207 1&5 23 P ñb I ШИ, МЕЗЕ У (indexing) ABRE ЊЕ ТА 
AM “ER” ве. RT, "510 АН. ужа листићи. 


Жив зе вж Т —4 W Jn; üOR ST WU ЖЕНИ. CRA b Е ИДИ. 
ЖЕЛ ЕЖЕ ТВИН GA SC S| Bo MER c ЖЕ, 


F iñi t) fl Н TMAS Sk fF GP Carsos и Ж. iW ii USE CHE AE 671 
Manufacturer. Model. MPG.city, MPG.highway. Min.PriceL/AkMax.Price: 


3c (eh iti nb gm eG В ЗО B 097309809 £ 3 
> Subset(Cars93, select-Model, subsete(NPG.city > 30)) 
Model 


За Festiva 
39 Metro 
42 Civic 


(ete) 


ЖЖМ ТАСТ YS Фф, n rs DC f] 


> Subset(Cars93, selectec(Nodel,Min.Price Max.Price), 


И subset«(Cylinders == 4 8 Origin == "USA")) 
Model Min.Price Max.Price 

6 Century ма 173 

12 cavalier 35 183 

13 Corsica na na 


1 ete) 


i E A ERK АА EEE FUT З Н АЕ T f (or ОУ D Go ñ ЕЛ 
ва 
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> subset(Cars93, selectec(Manufacturer, Model) 


+ subset«c (НРС. ispay > ы һірмау))) 
Manufacturer 

1 Acura жөр» 

5 аны 5351 

6 Buick Century 


ite) 


ама иь та атал гі ЖЕ. CiT AAR МЕРЕ 
«. пита. 


5.25 (ЕА 


вм 
EERIE ВОИ. REETA, (CAS ЕЕ ЕН ЈЕНЕ, 


МАЛ 
О RTD Rol 
СОРТА 


> colnanes(dfrn) <- пемпавез % nenanes 15 a vector of character strings 
ve 


RORIS PLZ Hk. LUE ДРЖАН) (vanilla) РЕН ORE, R 
att ФИН IS БИ, Vi. Va. УЗ. 


> mat 








-2.155 -0.535 -0.316 
j. data. frase(nat) 

мо wv w 

1 -0.818 -0.667 -0.494 
2 -0.819 -0.946 0.205 
3 0.385 1.531 -0.611 
4-2.155 -0.535 -0.316 


ПАНА CURE HIL, кё (ЕХ БК GARS ASI. 
жин, ен енен Е ВЕНЕ НЯ: 
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> Ist 


са 
[1] -0.284 -1.114 -1.097 -0.873 


[211 
[3] -1.673 0.929 0.306 0.778. 


сви 
[1] 0.323 0.368 0.067 -0.080 





rame(1st) 
21:114. ..1.097. .0.873.. С..1.673..0.929..0.306..0.778. 

1 -0.284 -1.673 
2 лам 0.929 
3 -1.097 0.306 
D -0.873 0.778 

с.0.323..0.368..0.067...0.08. 

1 0.323 
2 0.368 

3 0.067 
4 -0.080 


ак, ДАРЕ ак, КЕН. 
PAME, PRELEGE colnames RHE Hl fi: É СЖ SCIO P WRONG HOD PL ВК: 


> dfrm <- as.data.frane(1st) 
> colnases(dfrn) <- c("before","treatsent","after") 
> т 

before treatment after 


i -0.284 1.673 0.323 
2 салм 0.929 0:368 
3 -1.097 0:306 0.067 
4 0879 0.778 -0.080 
BWSA 
Ф533. 
5.26 RHE 
ад 
Me odo HERR AGIS ROO, (RERO GELERNT 
ЖЕ 


ваа, ELLER ОНЕ k ПР ЛИВ. (ЕЛИН Же di Я 
Hik Л: 
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> temp <- edit(dfrm) 
> та <- tenp # Overwrite only if you're happy with the changes! 


ie STEM Pic USER E, ЖИА Еп. Hedi DEREM ERKE, 2% 
ЗЕРЕН T temp. пФ КИНИ. BEST EATER (D HE 


JR Aon HEU CK GG, WISTULUBRE ЖЫН, сап PR eric OR 
ЕЈ ЕС ВАЗЕ Й" LOK SL IG i 


> бена) 
зе 
B5-1IE (E Windows ft тет 
ам. 


























85-1. ана 


ЖЖМ, ааа. жазан (9 Jo Sn, ВИЖ 
BH MH" ве. BOITE EH Винона. военния в 
fett. 


ВОРЕН, кк на жанан вж IH USE. del EHE E. 
шыларға EEL Г, Е Ет N A 
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5855 


A WPRISJDELASEDUEH "УНШ (сіл) тана II A (9 Br RR аР. 


5.27 JJ BH ME МАЕ 


вм 
ОЧИН МАИ, ТКЖ ТЫЙ. 


RRR 


1А па „опа ЕВА В МАШИ. 
> clean <- па.ом (ет) 
We 
RW ABRIL. Bodl HEN лі НГ инж T N. — W 
UJ EAE ИН па omit АЯ H ENAIT. 


Fifa eT DUAE SU t FRA rh @ МАШ, #Ш#ситзит& Ж ЖШ, HD 
> afm 


x y 
-0.9714511 -0.4578746. 

MA 3.166282 
0.3367627 м 
1.7520504 0.7406335 
1.4543427 





x y 
-0.971451 -0.4578746 


1 
2 МА 2.7084536 
3 м м 
4 м м 
5 м м 


АА ПВВЕМАШ, БАШ ситмт СЕНЕ Е ОКТ (summations) : 


> cunsun(na.omit(dfra)). 





жоны ЖИЕРЕ ШЕК, {Нэ} ЖЕК ДЕГЕН. 





148 | ЖЕ 





RIIH E BH URE 
ат, AE A LORDA д HARE PEAN AR REGERAR RA 
Закари а ката. LAM аан АЛЕ ӘХ. кв. 
папі, TRENAR, семе ЕГ net s. 








5.28 ЖАНЕ] 


в 
ПЕН АЕ ВОЙ RI HH 


МАЛ 


WME & — "select ЖІ ЖЦИ ие в: 


> subset(dfrn, select = -badboy) # АП columns except badboy 


не 
RATSTELIHB C REHH— (Blt, dfrn[-1]) , (Ht EAS PERI ARR AN? 
subset RELLA ВОЕНЕН ИНА. Зайзейесъй ЖЕ ЖЕЕ ЕНЕН UI — NA, 
ПАЉЕНА ЧАА ЊЕ (7) АО АРААНЫ Т. 
Билал ЖЕН, RE ARIX IM, RE Ни EC S 
A, ішік, 

> cor(patient.data) 


patient, id dosage post 
patient.id 110000000 0.02286906 0.36084 -0.137919 


pre 0.02286906 1.00000000 0.2270821 -0.03269263 
dosage 0.36430837 0.22708208 1.0000000 -0.42006280 
post -0.13798149 -0.03269263 -0.4200628 — 1.00000000 





TRAE, ЖАНРЫ EE ORA FOIE FREE (ЗЕ, ТЕТІН. 
ЖН A Ж ВУ ESFERA JC S ВА Н. 


> cor(subset(patient.data, select = -patient.id)) 
pre — dosage post 

pre 1.00000000 0.2270821 -0.03269264 

dosage 0.22708207 1.0000000 -0.42006280 

post -0.03269264 -0.4200628 1.00000000 
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THB SIC HC Т Жетес Е АПЕНИНИ 
» cor(subset(patient.data, select = c(-patient.id,-dosage))) 
еі " 
pre. 1.00000000 -0.03268264 
Post -0.05269264 1.00000000 


»взя 


ВИЉА AK ФН Xsubsetif АЕ. 


5.29 2 ЈЕР ДА ЖЕНЕ 


вм 
(от MONIO A ТИ MR 


RHR 
Пт ТТТ 
> all.cols <- cbind(dfrm1,dfrm2) 
тыла "HR" WAHR Mb E 
> all.rows <- rbind(dfrmi,dérm2) 
үне 
ЧИСТА ТЕА НР RR 2 — ЕКИН. ЗАЗ АРТУР Е OLE ~ER вене. 


щати HORT {ТЖ CAE ЕСЕ НЕ, вась іта НН ЗЕЕ, ITI 
ЭЕ 5Коовеѕ ви: 


> stooges 

папе n.marry n.child 
1 ме 1 2 
2 Larry 1 2 
3 Curly 4 a 
> birth 


birth.year  birth.place 


а 4887 Bensonhurst 
2 1902 Philadelphia 
3 1903 Brooklyn 
> cbind(stooges,birth) 
nane n.marry n.child birth.year birth.place 
1 e 102 187 Bensonhurst 
2 папу 3 2 1902 Philadelphia 
3 ny а 2 аж Brooklyn 
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ФК А ЗЕН НИ AE (іт) пя. Жп. Re EU. BikcbindAE SEI Rod 
№. ик ДЕСИ НЕ (Bg. ТЕ RUBORE И АЕ огрев hik ER] (274453), А 
RAE МИРЕ. 


вала а "HERR" MARREN, dm Ета 3tstoogesfüguys: 


> stooges 
nane n.marry n.child 
1 e 1 2 
2 any 1 2 
з Curly 4 2 
> guys 
nane пожагту n.child 
1 Ton 
2 Dick 1 4 
3 Many 1 з 


nane m.marry n.child 
1 e 

2 (пу 
з Curly 
4 Тов 
5 Dick 
6 Harry 


КОН ЕАУ АС ТОРЕ ТОД CRURA. RT, A A BEA AE ВОН 
ЈЕ (order) , rbindgE CT BEPI UK. 


ж, KPP EOS S w kis 26, ИЖ, iT rbindficbindHE? #07200, Bí 
РАЗРЕЗЕ РАМА. ЭСК, ІН FrbindficbindliE H Td. ЖЖ ЖИЕ, 
ДУО ОР ал тыра СНИ ж ы 


»взя 


йлеген ИЖ Fi RK BRR SHOP A M RERO ВЕНЕ. ХЕСЕАМ ЯН 
Ноа (GL. reshape2 üplyr 6): —zh fie SRI ЖОН КЫ). УЗИ IUE 


5.30 REHA JAHRE 


(ад 
алға салаласа салта а а ENT, Une 
ПЖ — Ені. 
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МАЛ 
М петве, ЖАНЕ eie Ho ЗВЕНЕ, 


> m <- nerge(df,, dfı, bys"name") 
XR, попе сі нау тау dicti PI vig. 


ию 
Мїйяїзотпйїдїей## ВЕ НЕ, BEL — Я nane: 


> born 

name year.born — place.born 
1 № 1887 Bensonhurst 
2 пу 1902 Philadelphia 
з Су зз Brooklyn 
4 Harry — 3964 Moscow 
> died 





nane year.died 
1 Curly — 199 

Moe 1975 
3 lary — 195 


RTE Penam k ARN, dn Gp УСНЕ НЕ 
> merge(born, died, by«"name") 
nane year.born — place.born year.died 
1 Curly — 190) Brooklyn — 1952 


2 Larry 1902 Philadelphia 1975 
3 ме 188 Bensonhurst 1975 


ЊЕ, бЕпегве EG CHUTE нанео. 75 Ситувинј сва, ИЕ 
"EAT HEAR IGI HRN, ББК IHRER ЈА ВИ УЗА 9 УСЕ НЕО T 


ЛЕВЕЛА (SQL) ЖИВ, Ва леге: Ж ЕН Р-НЕ ТЕ НЕННЕ, Ç 
ЖИ: ® МОРЕ ВН ik AE АУЕ На mergeti 925 9L ҮҮ BER. 


HRSA 


#154529, TRIO ЗЕЕ. 


5.31 ВЕНЕ ЕР 


T8] RÀ 
ВЕНЕ — 1 Bieb, (КРЕНЕ T На Л ЗВЕНЕ E, GARE GRUSS. 
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Жалж 
И РА ИУ УЗ FAN Ei thE BORGIA: 
> with(datafrane, expr) 
Жерге, ТОЗА ИЭ РИКА dato franeft PI MIR CA A RR А 


RECRUIT, РИД Ha асп ЕНИ НА (search list) rH A MGR. 
ЖЕ. HUGTROEREREASUER ВЕНЕ. сокче E Boe Uni] BH НЕЙ. 


> attach(datoframe) 


VWifidetachifi A (sfr p| dep СЕЕ. 


не 
RACE Реките, CUR ЕУ PL Ло. НЕО ЛЯ 
popí # Jusuburbsíf) ЕНЕ, ik W +í © [GARI 75 Dole HE popi 61022. 


> Z <= (suburbs$pop - mean(suburbs$pop)) / sd(suburbs$pop) 


ит, ЖРО АЛЕН 55%. iL t he VEU (I UE] ГЕД — Ж Us ls] 
ЗИК, "CREER BG — ДЕСНЕ EANAN, feda, 
fs LAW E Broke Ur o IR MER : 


> Z «= with(suburbs, (рор - mean(pop)) / за(рор)) 


ROUEN EXERCI, XOU IE. m GRE RETE HI NE h КОИ ЫШ, Уа 
BOEMA RRA, P4 өф ЕЛЕ — КЕ Ж ИТЕУ, 
> attach(suburbs) 
Eattach ARE, HERPES HINDE ЖОНЕ suburbs: 
> seareh() 
7-Globaltnv" "suburbs" :stats* 
[4] "раска kage:grüevices" doge utils" 
[7] "package:datasets" "package:methods" — "Autoloads" 
[10] "package:base" 
аза лала RE REK ИН : 
> z <- (pop ~ веап(рор)) / sd(pop) 


ИВО ВЕНЕ, Wfldetachi&k (ЖЕЖ) жашадын Ий AEAT 


(location) : 
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» detach() 

> search() 

[а] ".Globaltnv" 
[4] "package:grDevice kage 
[7] “package:methods” — "Autoloads 


MAP suburbs CL ES eR P ЖЕ Т. 


AA — te BE SH PI ЖЗ ЖН: канл- БИЛЕ НЕНА ШЖ, ХЕ 
НАС HERD cR WEB Е Т. ЧЕ РИКА ВЕН, DR 3а А 
(attached) RRM: 





ats" "package:grs 
ils" "package:datasets" 
"package base" 








> attach(suburbs) 
> pop 

[1] 2853114 90352 171782 94487 102746 106221 147779 76031 70834 
[10] 72616 74239 83048 67232 75386 63348 91452 

> suburbs$pop <- 0 8 Overwrite data frase contents 

> pop 8 Неуі It seems nothing changed 

[1] 2853114 90352 171782 94487 102746 106221 147779 76031 70834 
[10] 72616 74239 83048 67232 75386 63348 91452 

> suburbs$pop 8 Contents of data frame did indeed change 

[2] оооооооооооооооо 


Seil ff 93 — A Ae OB EIC A вон И EMIRE. ТЕ T 
кй, Grab VRRERHRUEICUE ООО НЫЙ pop, RT KER ERNA T —1- Mr 
Mo HERE: 

> attach(suburbs) 


» pop 
[1] 2853114 90352 171782 94487 102746 106221 147779 76031 70834 
[10] 72616 74239 83048 67232 753% 63348 91452 


> pop << pop / 1000 * Achtung! This is creating a local variable called "рор" 
> 10 # ме can see the new variable in our workspace 

[1] "рор" "suburbs" 

> Suburbs$pop 4 Original data is unchanged 


[1] 2853114 90352 171782 94487 102746 106221 147779 76031 70834 
[10] 72616 74239 83048 67232 75386 63348 91452 


5.32 FRKE НИ 


йй 

HOE THER КИЕВ”) КОВАНИ: FIFI (character) . EN 
(complex) , WAER (double) , №9 (integer) Ж 97 (logical) . ШЕ 
БИЕ НЬ AE жито — h, 





154 | #5 


MAHR 
АРААН ЖН, ТВИН НИК, BERIN 
пива: 


• – as.character(x) 
* as.complex(x) 
° as.numeric(x) ог as.double(x) 
° as.integer(x) 
* as.logical(x) 


не 
БЕЛА ВЈ СЕ РЕАЛ ток, пан. 
Ж, АМА 


> as.numeric(" 3.14 ") 
[2] 3.14 
> as.integer(3.14) 


> as.numeric("foo") 
м 

Warning message: 

Mss introduced by coercion 
> as.character(101) 

[a] "1o1" 


T Ui PARAS WPL. XERMAN ИУ трите сж. ЛИРА ИРА 
ЕЕЕ За IE: 


> as.nuneric(c("1, "2.718", "7.389", "20.086*)) 
[1] 1.000 2.718 7.389 20.086 

> as. numeric(c(^17,72.7187,7.389",720.086*, "etc.")) 
[1] 1.000 2.718 7.389 20.086 МА 

Warning message: 

Ms introduced by coercion 

> as.character(101:105) 

[а] "101" "102" "108" "104" "105" 


ДЕННИ НЕВЫ BET ñi. RERFALSEHO, TRUEX: 








> as.numeric(FALSE) 


шо 
> as.numeric(TRUE) 
ші 


RHEE НИРО k ТВОЕЙ ВЖ, ЛУЫН. Я оруес — 4 E$ 
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ЧЕН, ABA sum(logvec) HE НЕ НИНА E IK, ЗЕН El оруе с ТВОЕЙ 
ти. 


5.33 ЖЕН ВНЕ ЗЕ ВШ [8] B ЗЕ 


вм 
REED В НЫ Я — Б СИ З Ш, НЫ 
ЖӨ HB PERHR ВОВСЕ НЕ 


МАЛ 
FARE Be BUR HON FOI AA АЕ 59. 
+ as.data.frame(x) 

° as.list(x) 

° asmatrix(x) 


e as.vector(x) 


до, ТАЕНЕ АГАЕ PUREE. ВЕБЕ MES] ESI. 


пе 

mbetet КИНА НЕЕ. HERA а ORIS пр. Din, RR 
ЖӨН К СЕК, EBERT HA ЖЕЙ ЖО HO NH НЕ FRI, ЧЕ Я enn 
TF, HORUM ИДИ. ЖЕ S-L Т — ИНЕТ. 


жс. кин 

на ВР ež 

KRAF — as.list(vec) ВЕЛЕШ ЗЕ (мес), "iis 
SHREK, ил 
жиы ес 





ЯНИЕ ТАНЕР. cbind(vec)stas.matrix(vec) 282015514 
ЗЕТЕ трапа (мес). 
Шол x ЕРЕ: matrix(vec,n,m) 
ТҮЛЕК 
жшн. 








5 data. frame(vec) 
is. data. frame(rbind(vec)) 
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35-1. MERR ($) 


на REDE €= 
AHAB — unlist(1st) Мип1 1511 Ж Маз vector. 
SRASLI 





FRR IAEE: as.matrix(1st) 


IELI THEBE: as.matrix(rbind(1st)) 
Me syn х та Е: matrix(1st,n,m) 





ПАРЧЕ РАСЕ НЕЯ. as.data.frame(lst); 


палжент: #2359 




















JEBES — as.vector(mat) 38PE Bi fi ЕЖЕ Ж ЖЖ. 
МЕРЕ | as.list(mat) БРЕЖНЕВ 
ЗЕРЕН НЕ as.data.frame(mat) 

EAR СОС елка? 

А Ж 1ЧИ. дет „бас (371 _ 
ЖӘЙ as. list(dfrm) Фе 

ИНКВИНИЕ as. matrix(dfrm) ве 





шала UT ede Mer : 


Вл. 


ikig2. 


йаз. 


ita. 


Билал ER, RIL RITE, MA ВЕНА ie 
AG. GAN РН ях, WAREM: 1) ARAR 
(бий, ОИУ ОРУ), KEME FEBER RREN, 2) IE 
SEILER, ATAARE жични к, AEREN 
ARE, ТОКА, 

FU ELS FRR PIR, ЗЕН НЕЗНА ЛЕНЕ. 2 Th 
"EB Ж НЕ ЈЕНЕ —1- Kf, НА Каз. vector(as.matrix(dfrm)). 
ОД SARE ФЕТИШ, AAE RRA, 
LU Cri Е, 

тине (я, DEANAR) . ЗРМАЊЕ ЗНА. 
ЯНЕ, UH diras. list AEM ЕЖЕ Ж (data.frame) , РОЗЕ TRAM 
Яж. ЗЕЕ ВАВ (inh ТВА НЕ). хеви, 
ЛЗ ЕНЕВ ДЕРЕ, А ЗЕТ BEL, 302,38 018] И АЕ 
№. АЫ А ЕНИ, ВВА ИВ УЧЕНЕ НАВЕ, (nA BHO A 
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KFORA (FERMAT) . ЗВАРНА ИНЬ ЕТУ. МАЈЕ 
FRERE, 


ЖИЕНІН 

SEPE FERI HERE АЕРА: ЖЗ (rfi e 8 У иа) : жж НО (A 
Au, Bii utili ЖЖ ЯН Же). вен АМ, Pip АЛОЈЕ E ROU. dn 
жне, RREN. пп, ijr — 4 И CE 00 R ВИНЕ, 
ане LER FEREARE) 


RASA 


Ака алла тата BRE тя" IATE 
Wie. 
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6 


НЯ 





ил 


АЕ ЫБ арру НИИ, apply. lapply. sapply. tapply. mapply. DU ФГ 
йшй. byRisplit, ЖЕНИЯ ЕН. Ене. Pella po 
МЕНЕ (loop) , ПКЕЕ МЧА Й Нарруж аа ВОЖЊИ ВЕ, НЕКЕ 
итини. 


УЕ X B 
К ЯЗЬ АЛИЯ З (factor) REX. MIRRI HIKEA 
AAF, ЗАПАДА TR Oh 


> v <- с(40,2,83,28,58) 
> f <= factor(c(7A*, "c", "A", 





7)» 
BUTSTCENEESTHLICIS МЕТЕ НИ ғ ЖЕ, ішкі, 


вв аз 
40 А 
2 с 
83 A 
28 в 
58 с 
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БРЖЕ ИЛ НЕЖИН. 404183ҰҒАЯН, 28{ЕВ#1, 21580. 


ЖЖ, КОХ THOU RIEF. (grouping factor) . ЖЕ ЕАН, TAH 
AEI ENETH MDR, ЙОК АЕР, Жорже DURS A YH 
Ж, ACERA, нн. HENE. 


ЖЖ ЗЕТЕ REO З 6 И ТОРИ ЗЛИМ 
МР ИЧ (8077265) , ДЕН РАДИ GR. (BRN 
вв). EERE, НИО ЖОЕ ОНИ (8.779.19) , WRAHA 
Mi (BXOE20) , HEREME (8.775104) , АЈОВА, 


6.1 [338 2348 


а 
вещ, CACERES, ЗЕНА — ЯН TS. варена 
HERDE. 


жалж 
Перо, ВЕЛЕВ. "ОДИ врана 
> groups <- split(s, 4) 
Jh. USTELUURunstackik Ж. 
> groups << unstack(data. frase(x,f)) 
MRENA, RHE ВЕ — BL TCR 


ип tack EREN: A SCR IG RR RISO KE. CAWAN 
жиен, 


ию 
ЖЖ сагзәз@ 8 —1-RoboriginfüDI-T., (HASCE, USATInon-USA, th — 
А-ИНИМРС. САУ. ROTTER Origin T-HMPGBHBAHR. t EBR, 


> library(MSS) 
> Split(Carss3$NPG.city, Carss3SOrigin) 
susa 
[1] 22 19 16 19 16 16 25 25 19 21 18 15 17 17 20 23 20 29 23 22 17 21 18 29 20 
[26] 31 23 22 22 24 15 21 18 17 18 23 19 24 23 18 19 23 31 23 19 19 19 28 
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$non-USA 
[1] 25 18 20 19 22 46 30 24 42 24 29 22 26 20 1; 
[26] 18 29 24 17 21 20 33 25 23 39 32 25 22 18 25 


AY IO РЕНЕ UC TREE АЛАН ХИРО ГЕНЕ. КИЯНИ T АЕ HIMPGIO ЊЕ 
ж: 


> B <- split(Carso39M9PG.city, Cars93$0rigin) 
> median(g[[1]]) 


18 18 29 28 26 38 37 20 19 29 
17 21 38 21 20 


[1] 20 
> median(g[[2]]) 
22 


HRSA 

ВИЖ А ФРАНЦА ТЕ SL, HESETA ЛА, Bln 
ЧЕ, Uilinedian. ВА ЕЕ, ип баскет JCIB % MK 
на, затих. 


6.2 Ж ЗУ FE FS ИЛА 


DL] 
И-М, тин E PER PIS AE ТЕЖЕ — 1e ERK, 


МАЛ 
WINER ЖПарр1уй sapply, КЛОНЫ. Gñ Лару WEAR 
КИБА. ЖИРЕ TREE, НН зарру 4E ЕН Ж. 


> lst <= lapply(Ist, fun) 
> vec <- sapply(Ist, fun) 


ий 

ЭРИ ЖЕ И CR, ена taa mj жак (жш. Mk Seb funi 
Ж). AMET ERK, КЕННИ T jo. И арр1у1зарр1у 
ЖЖЕНИЕ. lapplyHFE( I4] — НАЧ LE ВЫХ PIRE. 


ШЫҚ "sapply HAY "s" ftdt “ИЕ” (simplify) . ik RECIBE MEA RAS (CR —1- 
HERE, ТШХ, Br Mi LAUR нж. makiki, 
9822051 ^ ER, GM, SANE. АКВ, ВЛАГЕ РЕ GE, 
еар. 
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К, Ж-Е ӨНЕГЕ. НИ НИ НА ВЕНЕ, 


Ab PU МИ НЫЙ : 


> scores 
КА 

[1] 89 85 85 86 88 89 86 82 96 85 93 91 98 87 94 77 87 98 85 89 
[21] 95 85 93 93 97 71 97 93 75 68 98 95 79 94 98 95 


552 

[1] 60 98 94 95 99 97 100 73 93 91 98 86 66 83 77 
[16] 97 91 93 71 91 95 100 72 96 91 76 100 97 99 95 
[31] 97 77 94 99 88 100 94 93 86 


ss 
[1] 95 86 90 90 75 83 96 85 83 84 81 98 77 94 84 89 93 99 91 77 
[21] 95 90 91 87 85 76 99 99 97 97 97 77 93 96 90 87 97 88 


за 
[1] 67 93 63 83 87 97 96 92 93 96 87 90 94 90 82 91 85 93 83 90 
[21] 87 99 94 88 80 72 81 93 93 94 97 89 96 95 82 97 


ЕШ 


Ко Ес Е, Мир, IPED ЛЕНЕ ДАА КЕ, БИЕ ЛЕ 
UHR TE ОАЕ РЕ САЙ. ВАГТДА еп НЕЙ ВЕНУ АДИО С. lapplyZtiklsl 


АКЛ, sapplyZi м —4- KE RE, И, 
> lapply(scores, length) 
за 
[1] 36 


552 
(а) 39 


ss 
[а] зв 


554 
[2] 36 


> sapply(scores, length) 
51 52 53 54 
36 39 38 36 


RISI R УЕЗ cH HL НИ Tbk ЗЕ, 


> sapply(scores, mean) 

E 52 s E 
88.77778 89.79487 89.23684 88.86111 
> sapply(scores, sd) 

s2 s E 
7.720515 10.543592 7.178926 8.208542 


RIA РА РЕЈА BOK ELO — МЕ, sapplyZ ни — BER. Din. HUE 


тапвеј Bl —/- 1209118. 
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> sapply(scores, range) 
51 62 53 54 

(3,168 60 75 63 

(2,1 98 100 99 99 


RARER EITHER, n P. ЖІК ЕТ La pp 1y RAE 
зарру. ВАНИЕ. ERIE FMEA, Mt. Fest 
им ЛЯ, MARTIAN Тарду: 


> tests <- lapply(scores, t.test) 


ВМЕИ САТ ЕЛ: БЕЛ лез ЖИИ. ЗАПЕРЛИ sapply A 
t.testil) uh ele НОТЕ. (ntn ЕАИС IRL ЖАК: 
> sapply(tests, function(t) t$conf.int) 
я 52 5з s 


[1,] 86.16553 86.37703 86.87719 86.08374 
[2,] 91.39002 93.21271 91.59650 91.63848 


SRSA 


210070212. 


6.3 ЖИНАП МР БИТ 
іш 


ӨЯ BB. MEERA оН FE, AERE GERONA. 


Бал 


Ий арр1у. VERE И, райжижет так. 





> results <- apply(mat, i, fun) 8 mat is a matrix, fun is a function 


в Жарр1 у: та ПОА — ERI - Fun, MER ЕИ ЛЕШ I GL RP, REK BEA 
ий. 


ию 
ВЕР опада ALB, dg — 6 8 MAMA, ЗЕН EA a БЕШЕНЕ 
БЕ 


» long 





BRRR 
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triali | trial — trialj іад — trials 
Moe -1.8501520 -1.406571 -1.0104817 -3.7170704 -0.2804896 
Larry 0.9496313 1.346517 -0.1580926 1.6272786 2.448332 
Curly -0.5407272 -1.708678 -0.3480616 -0.2757667 -1.2177024 
ТО теат КЕНЕН ЖАРИ АО ИС, ЕАН Е 
йй: 
» apply(long, 1, mean) 


Же — папу Сиу 
-1.6529530 1.2427334 -0.8181872 


EXE, ниаррјувЕ MERERI H томпапев ЖЫЛ ЕЕ, KRE RI IERI 


A TEMAME GE nb WE ип) малек, Шия, Е 
ЖОНИ B IU пт. ИАН P А ш. ным, яж 
арун ЖЕШ ЕРЕ. Ж trangei Fl — 4 ТЕНОР. АПЕЛ НИ 
КИ, ВЕР long"! ME: 





> apply(long, 1, range) 

жое Шау curly 
[1,] -3.7170704 -0.1580926 -1.7086779 
е 


51 -0.2804896 2.4483321 -0.2757667 


ЗА 07 ФА АА ЗЕ ВСЦ НЕ. m ACCRUE GE О — ЯЯ ТЕЖЕ ЊЕ 
КОДА С ВИС РУТЕ PUE, dh ЗЕТЕ АЕО, ЕДА А 
HII ВЕЛЕ НЕН Ж SLRS. 


6.4 AREA FEA 


в 
ВОЛУМЕН ЕЕ, EAA 


RRR 


Ж-Е, (#Йарр1ужЖ. виз. ТЕЖЕ РАИ 
> results <- apply(mat, 2, fun) 


ЕЕ, (ЕЛП1арр1у##зарр1у# Ж. (TIS Zcie ec; RIT Mele oem], 7 
THK AME, lapplyfei& ЕНИ Fiksi — 2, RT sapply CNEA — N: 


> lst <- lapply(dfrm, fun) 
> vec <- sapply(dfrm, fun) 
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PETANGE apply, {Н ЯЯ НЕА (Вр, РЖ ЖЮ жЕ} 
т) ж. 


We 

#Жарр1у ЖЕНЕ. 42705634, АГИЯ apply REFIE— MEEN. ix E 
РЕНИЈЕ — FRU, ЯЕЯНЕВИГАЬНИЯ. @Жарр1узй ZT SKE T Jj 

to ФМТ. 

` зжховиижяит. 

ikita W fi Bb Tiet. RII "FERRI" ранни, ЯНДА PD =, 
ЮЖ, KREMER толко. 

ЖОШ НОЕ НЕМЕ W n LRH ВИН, БҮЛЕ ЗЕ. RTT A ALI GO 
apply, EKSE F, КЕСЕНЕ — БИЕНІ. ORE 
РЕНОВА, KEARI, ВНГО РУЦИ УМРУ 
ЖЕЛІ. кеча Е, RIREHEBCR НЕНИЯ У, АЕН УГЕ АНА — 
ЗЕНА, 

Жай, кина. МЛЯ ЕВС ЕДЕ P. ЕЛЕСИ НЕТУ ИУ — 
AAR. STEAMÉOLapplyfüsapply3Ab REI, tI K6. 2H : 


> lst <- lapply(dfrm, fun) # Returns а list 
> vec <- sapply(dfrm, fun) 8 Returns а vector 


Воп е: ВОЕН. 
TOR ОНЗА алал ГЕТЕ НО о а 
> head(batches) 


batch clinic dosage shrinkage 
1 Ш 3-0.11810714 








вж, УНИАН ЖЕНА ЕВ. 


> sapply(batches, class) 
batch clinic ^ dosage shrinkage 
"factor" "factor" "integer" “numeric” 
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БЕЙ ЖЛ ВАН ВАНО И TAEMA A E ЗИРЕ АН TRUE k. (И тер. 
ЖЕН (MAER) , іргеде аткан, E ЗРЕНИЕ 
SHINEE, пие ELO SW RC ECCO ON AE RI 


ЗРНА resp ПОНЕЖЕ. ке. БА: 

> cors <- sapply(pred, cor, y«resp) 
ва зарру Z Uficori CIR predi tig — 5L. EE, М Fsapply, НТИ 
Ж, у-тезр. НИВА НИНА сот. А зарріуЙ соі, 18 


ОЬ HR 20 Ву-гезр. fi 739688, ИИА cor (column y-resp). 
EMAER resp MARM. 


ва зарр уз вина HRRK, АРИУН Я ВОН Я]. WArankik cR 
Uf RC BC BUS PRICE GL : 


> mask <- (rank(-abs(cors)) «= 10) 


ЖА РЕМ (с), BIDUO BI ES IR. СИИ, BECA 
ЖОЛ ЖЕНЕ ӘТЕШ. ЗЕНОН ЋИРА БЕШ, OTI SEI UC 
Ж, ПИКА ВЕНАХ GR Тана астан 


> best.pred <- pred[,mask] 


ЖМ, ВАЛЕ T БтезрН ERGO HUNTER, ЗП НЫеѕ+.ргейхітеѕрі fiia 
H: 


> ln(resp ~ best.pred) 


Еторе КБИ ЖЕ T EREE, HINE. 


PASA 


002708522. #628063. 


6.5 YR BEC FI TB ЖЕ 





ЖИЛ NEL, ЗЕЛЬЕ И, жия ЕН ЖР 
зи. 
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HERIR 
ОЕА (ARAME) HEH RRR, PARU ta pplyi 
=, EROS гащета. 

> tapply(x, f, fun) 


AER, х Ak, ЕЛИ, funi — iñik. makiki pik. Ç 
Ж—1 BUR R FL XR SEHR 


We 
BE AR, i EI REC РТ УЗ 16 BE АРТ ИРА 
suburbs cll 

> attach(suburbs) 


> pop 
[1] 2853114 90352 171782 94487 102746 106221 147779 76031 70834 
[10] 72616 74239 83048 67232 75386 63348 91452 


"ПФ M NOCHE РА SHE ar WH КЕНДЕ. 


> sum(pop) 


[1] 265041.7 


mk RW EAS EIS А O SRF, TENE? MOREE, шиве, 
(county) , SAH (pop) ЖИЕ. Ралин A АВИ ЖАНА ЗРНО. 
W Офали, ЧЕРНЫЙ (L), -MEFR (IN) ) : 

» county 

[1] Cook Kenosha Kane Kane. Lake(IN) Kendall DuPage Cook 

[9] will Cook Cook Lake(IN) Cook Cook. Cook. Lake(IL) 

Levels: Cook DuPage Kane Kendall Kenosha Lake(IL) Lake(IN) Will 
BEST EIN f countyfüiiictapplyEHIDU KER, вару = EKE 
8: EAR. ТА так. тайин, ако, MH. 
ат йин жи. THAT ВЧЕН ORR: 

> tapply(pop, county, sum) 


Cook DuPage Капе Kendall Kenosha Lake(IL) Lake(IN) Will 
3281966 147779 266269 106221 90352 91452 185794 70834 


ТИЧЕ ВЕРИР ЈА N: 


> tapply(pop,county,mean) 
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Cook DuPage Капе Kendall Kenosha Lake(IL) Lake(IN) Will 
468852.3 147779.0 133134.5 106221.0 90352.0 91452.0 92897.0 70834.0 


Карртув Ге: -MUSA AATRE, — БЕНИ лепе ёп 
Ж, ПЗЕ О РА CS KK. ГТА ЛЕНИ НВ 
ЮН, Ай, d RUM RON: 


> tapply(pop, county, length) 
Cook DuPage Kane Kendall Kenosha Lake(IL) Lake(IN) — Will 
7 xs 1 1 1 2 1 


ЖӚН F. ИЛЬЕ — Љеш, ЗЕН Capply AKRE ве А. — 
Лий. ВОТ RARR, кичи. Тарруйця аи E е. 
ІП. ЖЕ EA B # N tapplyff ВИ. 


E Ed] 


ВЕЖЕ “МЛ” их. 


6.6 ERA TF (748. 


î 
паник RIT Re CO EAR. 


МАЕ 


ка ЛАНИТ (ЖОШ EF HEDI ЕЖЕ) „пи REDA 
м. 


МЕРА I OHIO HB, GRO yl А Иа СЕ НЕ, ЗЕН ИЕ НЕ ВИНА 
Ж. Cyl БИТЕМНЕ Ер, JR ЕКИ. 


> by(dfrm, fact, fun) 


ЖИ, арт АВЕ, factik IH T. funi —^4- ak. HR Fun KON KERE 
жн, 


ию 
Бу FET BOB НЕ ПИ АВ, dn ER ВИД — RHET IO БАНКЕ, 
ЖаН, Blin, ditprint. ѕиппагур А mean BRKE ITRE, 
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TURA KE rb BERI ANRE, KAtrials, ОНЕР ИЕДЕН 
R: 


> trials 
sex pre 40561 dose? post 


1 F 5.931640 2 13.162600 
2 44987 1 23.293989 
3 N6160144 1 1 4.446643 
4 FAIMÉS 2 13.334748 
5 M4.153510 1 14.409982 


1 (ete) 


HEELS — РЕЖ ИЕ оли ем, ЭЛЬ y зли MIRE 22, ЗЕ 
НХ ВИ зиптатуб Ж. ДОРИ В, КВ, -MER 
Tee. 


> by(trials, trials$sex, summary) 
trials$sex: F 





ВИП ЯП ероѕ HERRE, аа Ент, Същия, 8- 
АА: 


> models <- by(trials, trials$sex, function(df) lm(post"presdoseisdose2, dataedf)) 


ВЕ. mipi ТАН, BIDURTSTLUB CIES RICO POBRE EN, HORS 
ес о ЕЈ ЗЕТ HK TIR, RENGE EMR: 


> print(sodels) 
trials$sex: Е 


Call: 
la(formula = post ~ pre + довел + dose2, data = df) 
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Coefficients: 
(Intercept) pre довел. dose2 
4.30804 -0.08161 -0.16225  -0.31354 






trials$sex: M 


сап: 
In(formula = post ~ pre + довел + dose, data = df) 


Coefficients: 
(Intercept) pre doses dose 
5.29981 -0.02743 -0.36851 — -0.30223 


ЗАП BUE, ТО АТА АРА РЈ ФЕТ ЖИЙ соп лева 
LU 


> lapply(models, confint) 
sr 


25% 975% 
(Intercept) 3.0841733 5.53191431 


pre -0.2950747 0.13184560 
doser -0.4711773 0.14667409 
dose2 -0.6044273 -0.02264593 
зи 


25% — 5X 
(Intercept) 4.8898433 5.70978218 
pre -0:1070276 0.05277108 
doses 04905828 -0.24644057 
возе -0.4460200 -0.16043211 





‚ FERIA 0] 


КОЗЕ апаавтатргеюнактозт, MAE EAN 
ВЕНУ ЗОНЫ, doseifüdosezs RHEL. Жіті, BID CAE SEC 


I ME LAORE SE, ката бнс HALE SE ВЕК I. 


звза 


BRAR “ПЛ” К РА РАИ. завои £C Наррув орк. 


6.7 важи тов 
а 


ж-ж, CAS так. KERX EROS RET FIM ARI TOR. НА 
АНЕ, ЖЕ, НАМОТАЈ ЖЕНУ. ПЕРИ Язва. 
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Е 


ЗИ таррју Ak, САН T Ë ti TK: 
> mapply(f, мес,» мес,» ...» мес») 


RE, ВСР АРУ 0 — Rk. RAI CS CR ЖК, МИЯ 
Жан. 


Я тару ЛЬНА, 
> mapply(f, list, list, ..., list,) 
ий 


RIA УНЕ, (inc + у, ERREN, KERR ИП ЛЖ ИЛИЈЕ 
ЛЖ. ан, РЕКЕ НЕ. 


РАМ, ЖЕРТВЕ МНОЙ, i В.В ОСЕЛ FAR, ОЛАФ MT У 
їй, RAELA ELAR, (kW Т, парру етот Е 





№82 1200 Agd, НА 


› e c fonctions ( 
if (b == 0) return(a) 

+ EP return(gcá(b, a Xx b)) 

+) 


ARTE ЕАН А gcd, A ERNE LAERE RAE: 


> gedíc(1,2,3), c(9,6,3)) 
[1120 
Warning messages: 
3: In if (b == 0) return(a) else return(gcd(b, a3) : 

the condition has length > 1 and only the first element will be used 
2: In if (b == 0) return(a) else return(gcá(b, a%%)) : 

the condition has length > 1 and only the first element will be used 
3: In if (b <= 0) return(a) else return(gcd(b, at%b)) : 

the condition has length > 1 and only the first element will be used 


KARERE, ARETAN Rima pp ly ЕТ icf, АГ, ЖЯ ЛУК МЕНЕ. 
ЛАНКА (GCD) : 





> mapply(gcd, с(1,2,3), c(9,6,3)) 
[1] 123 
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$78 


ИН 





ил 


TUO AM? ЕН? 


ЗАВОЕВАТЬ, MEEFFE, SPRER ВЕЗНОГ. (e ERE H 
м. 


RIL EEN ЕТЕТІН МІЗДЕ, RFRA FFF N E ts КЕЛУШ ИГ (Рег 
PO) ниша, (ЛЕХ А ТЕЗА НЕТО ГАН, A А{ЕРег! 
THREE ТА 


Н АЯЯПЕ Ө] Ж 

БОА Н АЯШЫ Из) Ж. ТТ У £ МЕЕ. AERAN, РИЧИ 
TELA, ERAM. кота ЛК. ВЕЗЕ ДЕН AMOR, ае 
СОЕ СЕ ЕЈ ИСТЕ Н 5 AA (n, 2010431158), {ЖЖЖ 
Гр Фел РАНИ (20104631 1H E^r11:45) . 


ВЖЖ Т ЕЛЕЦ к. 


Dated 
раке" КЛ HIS HII, AREMA, FERAN, Ej еще 
39. ЮЖ, БОН. НАК. ЖЕН. HEE, Aere 
НОС Jy HERE sr рате Ж Е. 
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POSIXctAE 
жи тажния, Енцажнт вж, ERRAND, ERAM, H 
ІНІН Е ЯҒ ВА 1970461 H 1 H Re SEHE Н — RK, ТЕЛЕ ЕН АНЕ 
вж. BUK RFE MAAE (Pin, как). 


POSIX1t 3 
ВЛ НД Ж, (НЕЙ ЖАРЫН ЛОЖЕ, Job Iis, B. 
H. мн. 286. Ба BERE EMER, MABIN, 8. 
ЖЖ, ЭТ ӘК НРОвІсе OR, ВСЯКА nb РОБИН GE M HR 


ЭБЕН S NOISE OCT СЕРА Н NOR ZZ ПЕНИН ЕЕ, Plas .Date, as.POSIXct. 
as.POSIXIt, 


ДЕВИНО ТОМ СКАМЕЕК: 


chron 
chron ЖЕН MERI (il, (Ri Сетих кои HEU A АЕ, ULE 
Date RE BY нет, ABA POSIX РОЗИ. "Cil ИРИНЕ. 
име. 

lubridate 
жа гнивит. авы. ‘EKER Е ААК С НЕЗ MM, R T 
RENDIE, ABER, ЕЗҮ ИЕ H FER Н WHA. 

mondate 
BR T атоми Н ЖИЕ, ik 055918 БЯО А RH НЯ, ЧЕРИ 
ЗАНАТ. ЕЕ Л ЕЙ. 

timeDate 
ЗАДЕ — BOB ЗМЕЙ; FIT AERE НЯНИ борне ЖЕЙК НЕ, 4046 ня. 
тен. ÜB. TO LMKL. “ЖЕК тегіс ЕЙ i, ЯҒ 
ЙАНА, ФИА HR ААЬАН ЕД ERREN, IR (EEUU 
ЖЖЖИНИ, ЗТД ЕХ Skit tD. 


ООА НЕ — A H MRIH? GrothendieckfüPetzoldiff] XC "Date and Time Classes 
in R” Те. 


TEORIA RH, БАНАНА AS AL Фили, ҮТ 
Date, $4 chron, Ké Ж EPOSIX&, if X%3 КРАЉ AUR 
HTE, Жжжалилетан. 
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звзя 

BNhelp(DateTimeClasses) НУЖНА, Ж T WW £ X: TI R ef VEA GR, SL 
2004466 А GrothendieckfüPetzoldtf) С “Date and Time Classes іп R” (Attp://cran. 
r-project.orgidoc/RnewsiRnews 2004-1.pdf) , CERF FIRM is] НЕНІ ЛГ 
4H. 200146, Brian RipleyfüKurt Ногой је "Date-Time Classes (Attp://cran. 
r-projext.orgldociRnews/Rnews. 2012-2.pdf) МЕНЕ T B ЉРОЗГ Ж, 


7.1 ЖК 


[а] а 
алта Та 


мал 


ІНЕН псһат, ИЕН length. 


ию 
HilncharLL ТЕТІГІ 
> nchar(^Moe") 


fs 
> nehar("Curly*) 
115 


А ДЕРГЕ ЖЕ 21213 ЛЕ: 


> 5 <= e("Moe", "Larry", "Curly*) 

> пећа (5) 

[1] 355 
ӨЗГЕДЕ Length El РЕВЮ НЕ. ESCAS PR EEA FI RERO HIE 
ЗАРЕЗАН M lengthiM, REMH, РАДА ЕТЕН 1 ORE 
#— — ^ FUE REMARK: 

> length("Moe") 

Іі 

> length(c("Woe*, "Larry", "Сы у") 

fis 
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7.2 ЕВЕ 


ви 
НЕК ЕЗЕН ЗЕЕ 


ORIS 


ИН в разке. 


тие 
бразе Не ЕНИ, вещи, свине EH, дб 
ЕО 
> paste( "Everybody", "loves' 
[1] “Everybody loves stats. 
ЖИМЯТ, враз ted ETE ір, Nik GARE MS ACRI 
MRE, ФИНАЛ. ese pfe Ur dic ЯКО 5603. бие ERR 
(7) DDE, ЕС РН r RUE RR e AE: 
» paste("Everybody", "loves' "-*) 
[1] "Everybody-1oves-stats. 
> paste("Everybody", "loves", "stats.", sep="") 
[1] "Everybodylovesstats." 
ВОН РАР ЕТ Ж. МИОПИЯ Жаз сһатасбегі Наа Т 
и: 


"stats.") 








> paste("The square root of twice рі is approximately", sqrt(2*pi)) 
[1] "The square root of twice pi 15 approximately 2.506628274631" 


ЛИКИ BOLT TER IR. Nipaste£t i Bof S Bd А. 
› gue c Ска ctam ХА 


> paste(stooges, "loves", 
la] "Moe loves stats." "Larry loves stats." "Curly loves stats." 


HEREC ER АЗЕ НЕ ОЧЕР, $iicollapseibWicoE - 4 IRA RIT 
ЭКЕ праве BU TERE RER: 





> paste(stooges, "loves", "stats", collapse=", and ") 
[1] "Moe loves stats, and Larry loves stats, and Curly loves stats" 
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7.3 RFE 


[IE] 
BOE (о пева A ERROR. 


МАЛ 


TW FR ksubstr (string, ѕёагё, end) ERI th Tstart, Реп Е. 


ЯН 
вирт f Bc) BUE — A BOBO Е, Леви Е. Баал 
MERA ZFR 

> substr("Statistics", 

[1] "Stat" 

> Substr("Statistics", 7, 10) а Extract last 4 characters 

[3] "tics" 
RI EREN, ирт ОЕ РАО ТЗ, ERWE, AE 
rbi ЕНИ ТЕЖО EG EI E 

> ss «- сСвое", "Larry", "Curly*) 

> substr(ss, 1, 3) # Extract first 3 characters of each string 

[1] "Moe" "Lar" "Сит" 
ЖЕ, павирана, ЖЕМЕ, substi ПИ GUI. MA 
Л, ЕН ЖА АЖ, ik Bí ef OBS. DN 
Am. Tiff) fet jr FUA RET ETE hBi k ЗЕ, p Fl dé T 8 ta EU. 
писта, ИРЖИ ET 

> Cities <- с("Њем York, NY", "Los Angeles, CA", "Peoria, IL") 


> substr(cities, nehar(cities)-1, nchar(cities)) 
[a] "w^ "on "n7 


КРОС СУЛ Rk hik, {Н GRE Иа FX gk. 


7.4 НЕВЕРНА 


(ад 
МЕРЕН ӨН» ITUR, РВОМ. 





4) в Extract first 4 characters. 
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RRR 


Wifistrsplit, S9 BE ЕРЕ fshati. 


> strsplit(string, delimiter) 


delimiter ПЕРО V — MENER. 


не 
TUER OA HUNTER 2 RETE AY 2 T h b в. — ИРЕНЕ, в. 
ПАЉЕЊЕ (77) от. 


> path <- " /hone/nike/data/trials.csv" 
ЖАНИ егор ни BTE 777. запее REED NUR £ НІ». 
> strsplit(path, 7/7) 
ШІ» "home "ale" "ana" адас" 
EE, Ж—1 Чин” ак Евка, RANT REMARK, 


WEEN, strspli EER, AARE TREAN, свое, 
вложи, ив — АТО FRR RM, вее STU (м 
а), ROKER RITMEKE. FOATA, PIG Fl 
ACRIOR 
> Paths c- c(/hose/ulke/data/trials, cov", 
"/hone/nike/data/errors.csv", 


"/hone/nike/corr/reject.doc") 
У strsphit(paths, 77) 


1 
[1] 7" "home" "mike" "data" "trials.csv" 
[1] "^ "home" "mike" "data" "errors.csv* 

311 
[1] ** "hone" "nike" "corr" "reject.doc" 


тр 4 ERK (MAREN) Же E Heike ОЕ, 
Ж. ЕНД ЛЕНА, CREM HERHEM ВЫХ. KRE, ARE 
MERDE СВЕН ЕНА), AE BcRxed- TRUE. 


еі 


ETWEZTXIPISIENAGES, ӘНІ терехрі тв. BN Hleffrey 





THRKEHE | 177 


БЕ З (Mastering Regular Expressions) (O'Reilly) (Attp://oreilly.com/ 
catalog/9780596528126/) VL TREE LH X: EW G5 И. 


7.5 КУ 


в 
колене, ИЕН -DER 


ERR 


КОЈЕ У MCA TER IAE FMRI: 
> sub(old, new, string) 
КА ИЗА Ж FMR: 


> gsub(old, new, string) 


Wie 
пиво а tringrb Ролан — 4 KD. ИЕ M COR Елен: 
> s € "Curly is the smart one. Curly is funny, too." 


> sub("Curly", "Hoe", s) 
[1] "Moe is the smart one. Curly is funny, too." 


БОЫНША, ERER ЈА Ролан ЖИЙ (ОВК), TEUER 4: 


> gsub("Curly", "Moe", s) 
[1] “Moe is the saart one. Moe is funny, too." 


ТАЗ ЛЕ, AR ВЫХ T ленд : 


> sub( and SAS", 7”, "For really tough problems, you need R and 545.") 
[1] "For really tough problems, you need R." 


olds UAE EMIR К, "E fce ПС ВОН ME кина. CERU 
Ж, BIDUO зи трио Ноа FS ENZA, НЕЕ B CRxed- TRUE. 


RASA 
ЗЕЛЕ ЭРКЕЛЕ АБАБ А E, 972 Итевех В ШИТ. SI (Mastering 
Regular Expressions) —5] 88:3 РЕЗБА S. 
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7.6 ВЕЕР 


Дарт 
(КАЈ ЧЕТРИ ta & KRE ILIO ERE КЕ. ОАЕ зй з ВИР ЕНЕН. 


RRR 


ЗИ реале ЕЯ ДРЕ ИРАН. са RFR. 


не 
ы анна аа ТТЕ ТЯ 
ПАЗАР РЕЗЕ ЕСС Н VECES РА ТАИ WANA 
48. 
СЕНИ Еф, ЕН ВИЗА, Meat жељена, 

> nchar(s) 

[1] 13 

> cat(s) 


Second 


ПАРАЛЕЛА ЧЕ TER СЕТ. {НӨН ЖЕ Ж. ЗИП рз пен, (HOD X 
W (БЕЖИТ) НЕКЕ 


> print(s) 
[3] "frst\rsecond\n" 


EB, ipi (Edi ETE (Vr) , НАД сан ле ЕТИ, “first WE 
"second" ЩЕ Г. 


7.7 ЕН ЕН ЊЕНЕ 


в 
ВС ЕРОС РУШИЛИ ЛЖ). 


RORIS 


ТА S touter прасе НЕ RTH ST Ed NIE: 


> m <- outer(stringsi, strings2, paste, зер-") 
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не 
Жоитето НИ. PRI, ВЛЕЗТЕ BOE GELS КН ВЖ 
Wh. dx Ф, ВП (paste) RRRA, ӨЖЕТ. 


TEE VE AS VCI ER ERU винт: 


> locations <- семе", "LA", "CHI", "HOU") 
> treatments «= e("T1", "Та", та") 


4119738 Hlouterfiüpaste/E iut Je ЖАН Bo AG : 


> euter(locations, treatments, paste, sep="-") 





пасти и 
[5,] "Оп-тї” "or-T27 =сні-т3" 
[4,] "HoU-Ti* "HoU-T2" "Wou-T3" 
Е о кет Т paste, (EXEMIKRLF, fGliseps"-" Vit Е 
Terram. 


outerhjt JE Рем. dm КЖ E 4E C LAY EER HHL, LUN JH GR C 
as.vector KI il ire. 


ЖЕННИ F. ME HUETERURTE ЗРНА А, ПОЛЕЗЕН, ЛЕНЕ 
ма: 

> outer(treatnents, treatments, paste, вере"-") 

[A] G2] 53] 

11,] Тата" "Ta-ta" "n-n* 

[2,] "та-та" "T2-T2* "12-137 

[5,] ата T-n "тате 
ЕГА НЕ OH. ВП ЕГНЕР F = fh СЖ L = fi) 
ЖЕНА, ИА омет. єт ПАЯК, ЖЕНЕ ИНЕК = fh RI 
жж: 

> m c- outer(treataents, treatments, paste, seps"-") 


> n[Hover.tri(n)] 
[1] "TA-T1" "тата" 72-027 "тает" 71-77 77-07 


же 


ЖРА разно КЕЛТИ GUAE, WERE. 
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7.8 {4E 2 Bi E АН 


[E] 
аон RIS НЯ 


МАЛ 


бух. Datei El ам H 


> Sys.Date() 
[1] "2010-02-11" 


не 

уз базе — Факел. EMATE, CREDEN, RAR 
ARIES, ФАШ], буз.0атещ Праве, RH ТН НИЕ HUE НН 
AEM. ЭТО Sys „раке ЖЕ ЖЕНЕ Ж. 


> class(Sys.Date()) 
[1] "раке" 


звзя 


фита. 


7.9 Аға 2 R BB 


T] RR 
ЕЛАН ЈАНО В, ВИП "2010-12-31" , ИНЕ ЕВЫ Date. 


БАЛЕ 


"туда „раке, HERAME ЕЗЕК. UMRE, as.DatelBUE T TERES. 
ЖФуууу-тт-44, ТАБЕ НЫК, MAR а5 рате И format, И, ШЖ 
H WE ЖЫ ОНЬС, MEHIR ВИ format-"Xa/Xd/1y" . 


ию 
ANAF SL Tas. Daten ERUR, 8150 860 ЕЖЕН уууу-тт-44 
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> as.Date("2010-12-31") 
[1] "2010-12-31" 


Agas. Datei Е — Datel, ik EEA ТЗН НН ЧЕТ НЫК, АМ T QI 
ваљка. 
ЖЕРНИ УПАЛО, НИСИЗАВИ Ботпай, Фаз.раке ДЕНІ 
ТЕН, А Білева кім, ТЯ ЖҮКЕ. 
ПЕЛЕ НИ ЖШ А. %Ж ЖНА ЖИ Н АЯ (mmdd/yyyy) SéBukDatext 
R, тагы Ж. 

> as.Date(712/31/2010") 


Error in charToDate(x) : 
character string is not in a standard unambiguous format 


БАЛАДЕ МАЈЕ SUMI HUI TE RR Ji : 


> as.Date(*12/31/2010*, format«"ta/X4/YY*) 
[а] "2010-12-31" 


TARIME RRRA EUER PALEE, m Res UT cT: 
FB, ЗОРА КУ. 


7.10 ААУ 


DL: 
СО СТАО ТИ РАСТУ (EJ tes LEUR ERE 


МАЛ 


WH A Format Каз character: 


> format(Sys.Date()) 

[3] "2010-04-01" 

> as.character(Sys-Date()) 
[1] "2010-04-01" 


Pi ИЛИ — 20 Ғогпа БЫН. И. WHFornat-"Xa/Xd/XY" ан 
Ti RARO НЯ: 


> format(Sys.Date(), format-"ta/Xd/1Y") 
[1] "04/01/2010" 
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Te 

Bitfornat ACE Ән тті. HEFTE (ApH (7) REEFF (С) ) 
Жата oe Sr НИЯ НЕ EUR. 4/99 (9) ME ЛЕВОЕ, 
ававдянянкх. ЮНАЯ: 


xb 
# 3309 HO (Ја). 


xB 
ЗЕЛ ЖЖ ( “January” ). 


ха 
иск n. 
ха 
тил ө. 
У 
иене (00-99). 
xv 
ТА 


Фог О ТО DI fr РА ТОРУ 22778 


7.11 ЖИ. A. ВЯНЖ 
DE 


ИНК AMBER, HOUR EMEK, MERRER H ик А — 
рате жеж. 


УЗ 


Ий и т5одаке : 
> тзодаке(уваг, month, day) 

пад POSIXCUM R, (ESTEE НН — 1 DatexH : 
> as.Date(ISOdate(year, month, doy)) 
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vti 
HEHE, SA NUR OS — 4 E, T SURB ЯЕ. Лин. ак 
IsOdates]UME t ([14 вой — - POSTKCOR e : 

> I50ate(2012,2,29) 

[3] "2012-02-29 12:00:00 ОП" 
fEPOSIXctHGRb, URSIDLDRHHURRS Н MM. RT, залее H ЖЛ (TE Н MIRO I) 
м, Ж&ЖЕ ТЕ ПИН Dates} $F H MAER A ЕЛІН ОННАН. 


> as.Date(I50date(2012,2,29)) 
[3] "2012-02-29" 


ИНН ЖН ММА: 


> IS0date(2013,2,29) # Oops! 2013 is not а leap year 
[a] ma 


алыш ааа ЗРАЧИ А ВОН НЕНА, XEME 
№. ТЕПААТ ЛОВ ЛЕА ЕЛИН, EENAA раке 
ме: 


> years 

[1] 2010 2011 2012 2013 2014 

> months 

[111114 

> days 

Ulis 21 20 18 
sdste(years, months, days) 

00 СИТ" "2011-01-21 12 

[3] "зо: 00 СИТ" 2013-01-18 12: 

[5] "201 12 от“ 

> as.Date(ISOdate(years, months, days) 

[3] "2010-01-15" "2011-01-21" "2012-01-20" "2013-01-18" "2014-01-17" 


®%#хжаЕЖИ NORE $ и, FRSE PO REA CST LL НИ А ИКЕН AG E Jn 
fttt: 







" 72 





> as.Date(ISOdate(years, 1, 
[1] "2010-01-15" *2011-01- 





)) 
2012-01- 





= "2013-01-18" "2014-01-17" 


Л HAB ТОЗИ Нн KCTSOdatetine (ТЕН £ ЯВА), ББ НИМ. 
H. ММ. ЯРНИ. 


> IS0datetine(year, month, day, hour, minute, second) 
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7.12 185) ERE НАН 


вм 
HUE Date Rt. ИНЕШ НЙ (Julian date) , ZERF, “JE А 197041 ЛІН 
LOK RC. 


вал 
ЗЕракей Фе ER WIEN jul dan: 
> d <- as. Date(72010-03-157) 
> as.integer(d) 
[1] 14683 
» julian(d) 
[1] 14683 
зони) 
(1) "1970-01-01" 


не 


иам" ДЕСЕ АЕНА ДЖО, TER, ато ан, UNIX 
НОЛЕ УА АА. 92197041 Я 1B Julian Н АЖ, dn FEBR. 


> as. integer (as.Date(71970-01-017)) 
.Date(^1970-01-02*)) 


.Date(*1970-01-037)) 





7.13 ЗУ НЯ — 8043 


DE] 
акен, кажи ISO BB. 9S INIGXE X. ERR, ни 
н. ВИЛ НИ. 


МАЛ 


Datel НН — ЉРОЅІХІ ОН, EAE 4 HUI 482 HOT. АВС 
аве, 
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> d <= as.Date(72010-03-15") 
> p < as.POSDUt (d) 

> p$nday 3 Day of the month 

> рмет 8 Month (0 = January) 


> p$year + 1900 а Year 
[1] 2010 


vie 
XHRPOSIXLUE— HARARE II ВУ. ЗАМ RR Cas POSTXIE, 
düDateztH HFM брои, Сава FLU ВЕНА ЕР ИРА, 


sec 

Ви (0-61). 
nin 

Зак (0-59) . 
hour 

АНК (0-23). 
пау 

влюжк (1-30). 
mon 

Hf (0-1). 
year 

19004849560). 
wday 

ВИМИ (0-6, 0-Sunday) . 
yday 

ПАРИ (0-365) . 
isdst 

XM Abdo. 
Зе H ЭЙ, йайлной2010 #4 H TH ЖЕЛЕ (мдау = 4), ЖЕНИО 
(ЖЕДІ Нудау =0) : 

> d <- as.Date(72010-04-017) 


> as.POSDL t (d)Suday 
ша 
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> as.POSIXI t (d) $yday. 
[1] 9o 


— Ж ПОНОВНЕ ДЕ SICK пое fp n Е 1900, HEURE GE FRE 2 fs TE LA ELE 
> as. POSIX t (d)Syear. # Oops! 
[1] 110 


> as.POSIXIt(d)$year + 1900 
[1] 2010 


7.14 НЯ] 


вм 
fn ge OE — 4" ЕТТЕР ДЕГІ HAM, 


МАЛ 
зед ЕК, раев ROME. ВИНЕ СЕЛЯНИ, ет 
LONE акеледі. 


не 
His e qb АРА ИЖ ЛОВЕН (from) . ЖЖНМ (to) , ДАНЫ 
(by) , MERRER: 





> 5 <= as Date(72012-01-017) 
> е «= as.Date(72012-02-01") 
> seq(frones, tose, вуза) 8 one month of dates 


[1] "2012-01-01" "2012-01-02" "2012-01-03" "2012-01-04" "2012-01-05" "2012-01-06" 
[7] "2012-01-07: "2012-01-08" "2012-01-09" "2012-01-10" "2012-01-11" "2012-01-12" 
[13] "2012-01-13" *; 72012-01-16" "2012-01-17" "2012-01. 
(19) "2012-01-19" > "2012-01-22" "2012-01-23" 
[25] "2012-01-25" "2012-01-28" "2012-01-29" "2012-01-30" 
[31] "2012-01-31" "2012-02-01" 


АЛУ АЛЫН Ж ТЕНИ (from) . М (by) „АНЖЕ (length. 
out) : 





> seq(fron-s, Буза, length.out=7) # Dates, one week apart 
[1] "2012-01-01" "2012-01-02" "2012-01-03" "2012-01-04" "2012-01-05" "2012-01-06" 
[7] "2012-01-07" 


Жш (by) ERIN, ЗЕН ПРЕ. Pl. ЛЕЖЕ. 


> seq(fron=s, by="nonth", length.outei2) 8 First 
[1] "2012-01-01" "2012-02-01" "2012-03-01" "2012-04-01' 
[7] "2012-07-01" "2012-08-01" "2012-09-01" =; 





the month for one year 
12-05-01" "2012-06-01" 
2012-11-01" "2012-12-01" 
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> seq(from=s, by="3 months", length.outs4) # Quarterly dates for one year 
[3] "2012-01-01" "2012-04-01" "2012-07-01" "2012-10-01" 

> Seq(fros=s, bys"year", length.out«10) Year-start dates for one decade 
[1] "2012-01-01" "2013-01-01" "2014-01-01 -017 "2016-01-01" "2017-01-01" 
[7] "2018-01-01" "2019-01-01" "2020-01-01" "2021-01-01" 


ЖМӘЛӨШЕНІПЬу-"попіһ”, ЕЖА, НЕВЕ TIA, CTE 
шаласы а 






> seq(as.Date(72010-01-29"), bys"month*, 1en-3) 
[3] "2010-01-29" "2010-03-01" "2010-03-29" 
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в 





йж 


ил 


ВОЖДЬ RE, тока £ РАЊЕНЕ. ВЕКУ ГА АМЕН. Ж 
Were ff) Jy USOS AE PEE RC GIC алан аллил RR E АН, 


та, ов. 


Эта 


RET BOR АВА ЛИ. KX ФЕН ЕА зоне. И, ЈЕ 


JUS ЖӨКЕ "norm" , ВАР BRI EHE: 


mue вв 

дот квоти: 
pnorn ESANAK 
qnorm тежести 
пота Ерани 


МЕЗЕ T ~ER LRRD, ЖЕНЕ ТЛУ ИЕН. 


38-1: инат 

илбей RES за 

Án binom n: КОЖИ: р: ХЕ 
NADH geon р: фав 





8-1. Bünde (SE) 











ин REM за 

лав hyper m: PARME: по ЗЛИН k: MEHA 
пози 

дет nbinom size: HOD Bt Rëprob: RDB, Щ. 
#mu; ВИЙ 

Wi pois | lambda: ИЙ. 

8-2, ВЯ 

sonam пай за 

тв beta shapel; ЈАКИ, shape2: 2 

ва самсћу location: (iW, scale: K/h 

ДУДА chisq df: Нн 

икә exp rues RER 

оф f dfi, ВАН, a. НН 

ну gamma rate; ЖЖЖ, Ж тие LER, RR 

scale; ЖА 

ЭНЕ Ба 1norm meanlog: RYM, ов CENE 

39412) 46 logis location: fW, scale: ЖА 

ЕЕ Ж norm mean; ВАЙ, sd: ЊЕНЕ 

FEDA t df, fidit 

БОРАЙ unif min; А30, тах: ЖШЯ 

Miti ОЕП weibull shap: ЖАК, scales ЖЛ 

Wilcoxon} wilcox 











ва. HH d XR tasu g D EK, (Иш 0) s izeKprobid Л.И) diit) 
prob. ЖЕНЕ РАЊЕН ВР ТАНКИ ЧИН. Dn. RA — RE НОВИ, Ç 
ЛЕНИЙ, AT, ВЯ ИДЕЯ Хосе = ИД, ARDRE, КА 
ME, Етно ваня. зенит. ME BETER. 





f8SJXE T ERE A) n RO E BJ 


AT Тики ЛИОН, ЯНА НӘН. HERSAN 
век. ИМ, БЕНО HHRMA: 
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> Normal 


ЖЕЖ 3184 пеір@ ВИА, Жіп "А", ХНУ 
ЖЕН ак, ЯП Ж8-1Я18-2915К: А (NegBinomial) , Ед 
(Chisquare) , ЖЕЉУ (Lognormal) LARTDist, RIC, ЕВЕ Т Ah 
ж, IM: 


» mist 


E Ed] 

fi W $ Ç fb 00 2 fs fE АГ F АШК b PARKI, $ WL ТОК SICRANTEAS VUE 
(hup:licran.r-project.org/web/views/Distributions.html) , 5k(-t1SuppDists4ERAE RMEL 
ю-во, ЭРА ОИ ЖЕ. RAKPEGMASSIAEAME RI С, БЕ 
EN, DAE H F —2e ñ y ORC в, MERESSA PMES. 


8.1 НА 


вм 
TREE e C HL ЖЕН. 


RHR 


18 сһооѕеҝ t: 
> choose(n, k) 
не 
ИККЕ ШЕ КЗ O LE ЈА SCRI А TED 


ПРЕМА. KE EE tlnUri(n — Г, НИЯ Ясһоове ст Jo f (8 6 
пя o ЖЮ: 


> choose(5,3) # How many ways сап ме select 3 itens fron 5 itens? 
[2] 10 

> Choose(50,3) # How many ways can we select 3 items from 50 items? 
[3] 19600 

> сћоозе(50,30). # How many ways can we select 30 items from 50 items? 


[1] 4.712921е+13 


ЖА жш. 
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ASA 
УЕН а, P pika оа A ЊЕ. 


8.2 Е НА 


в 
Tis EAE HUBER Алле MURAL А. 


МАЛ 


ЗА combi: 


> combn(items, k) 


не 
"ИДИ И сотп (1:53) ЖЕНИ 1-5, — ИЗ COBRE а + 


> €onbn(1:5,3) 
Са] 52] 1531 1,41 5] 1,61 7] [,8] [,9] [,20] 
i] n':os 4$ 3 1 за z 3 


D D] 2 2 2 3 3 4 3 3 4 4 
DJ з 4 5 4 5 5 4 5 $8 5$ 


Mk IRMCRRORUT RE, ЖЫП АТО ЕТТИН @, FAE SKERMAR A 
та: 

> tonbn(c(*T1*, "та" "T3", "T4", 715"), 3) 

5] 159) 1,10] 

n "n 





Т3" "D "Tat "Tat 


[3,] "T3" "тат "Ts" "T4" ти та" "Ts" ет" "т" 





Жа. smith, Gat ен RH ikan. KKM, 





E E] 


BREEN, TMnbIEH JR A TEAMS низа ин, 
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8.3 БИ 


юй 
калышын. 


МАЛ 
ERO ZN AA BUTEL Beruni FER, FTN — Ва 
us 


> тима) 


AT, КОДОВО f FERRIER. RET ЛЕ. MEREM, 
Wd Ye fe AGI BEER “г” (И, тпот ESS ОВА ВК) ‚ ЕШ 
ИРАНЕ PAE Та 


> rnorm(1) 


wie 
KERREN A — 1° ЖЛЕЙ УБА НКЕ REEF, СВЕЛИ, E 
0.0-1.0:2 уу. ВНЕ. 


ВАМ W OR) dti AA DUOC 13 5] АТТ РАТЕ 
MCI А NL HESE TT rh runi FER CARI : 

> тима) 

[1] 0.5119812 
runi #0 @ BOE НЕ LI) BE ВИНО Н. H RA r О 
LLLI 

> runif(10) 

[1] 0.03475948 0.88950680 0.90005434 0.95689496 0.55829493 0.18407604 

[7] 0.87814788 0.71057726 0.11140864 0.66392239 
КО СОЕ ЕТ ВИ ЕРЕ ФЕ “г”, скрия TH 
БЕЙБИ АЕ ЕВО ABR. F P| Ak ER По ОРА ВСЕ ЕУ. 

> runif(i, піле-3, max«3) 8 Опе uniform variate between -3 and +3 

[3] 2.954591 


> тпоти(1) # Опе standard Normal variate 
[1] 1.048491 





ЖЖ | 193 


> rmorm(i, mean«i00, 54:15) # One Normal variate, mean 100 and SD 15 


[a] 108.7300 

> fbinom(i, size=10, prob=0.5) а оле binomial variate 
шз 

> Tpois(1, lanbda=10) # Опе Poisson variate 
[4] 13 

> fexp(1, rates0.1) # one exponential variate 
[a] 8.430267 

> rgamma(i, shapes, rates0.1) # One gamma variate 


[1] 20.47334 


типі, Ж-С-әИВЯЯНЮМНЖІЗЕН. BUG О У век, ІШЕ 
iE fillineanfüsd, RA MA fsffisizeKprob f. ВК ЖИВИ ДЕ # 
an. 


НЕНИЯ тва РУЕДА. (8 б ТОДД MC, ЕКЕНІНЕ, 
КОЕТ RUKH ЖИ жий. ТРПИ РЕЈ ТЕВНО, ЖЕЛЕ 
ЖАН» 985-10, 00«10, "ETE IE ТИЕ: 





> rmorm(3, теапес(-10,0,+10), sd=1) 
[1] -11.195667 2.615493 10.294831 


ЖЕНА ЛИНИЯ КЕЙ СӘННЕН. КІНӘ + 
ТЕАИ, ТП НИН Ж ЛЫН Жи = ова = 0.219 E Б НОРИ НИКС. 








1004- 


> means <- rnorm(100, mean-0, sd«0.1) 
> тпота(100, meanemeans, 54-1) 

[1] -0.410299581 1.030662055 -0.920933054 -0.572994026 0984743043 
[6] 1.251189879 0.873930251 0.509027943 -0.788626886 -0.113224062 
[11] -0.035042586 0.150925067 0.634036678 1.627473761 -0.812021925 


ев.) 
НЕ НЕКЕ £ BELLE НР ERU, БАК НЕ BC РН. 


іні 
важ “Ил” те. 


8.4 ERTE ЕН 


ІЗІ 
ЖЕЕ ВЕНЫ, PREE USD ВЕЛЕ GE Uc ТИМ EE Wix ЛИННЕЯ. 
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NORTE 


ПОЕТИКЕ. Ивет. seedi Bt Efi (C BE АЕ IRL — ERS: 


> set.seed(666) # Or use any other positive integer 


ию 

ЗЕМИ Ја. ВЕКОВНА FIM, oT s E ИХ УА ЕКА НИНА]. uñ 
изнъх, ЖАН Ен Ж, o Fede HE I EIU EO U KM 
СЕ Ри У kia mipi iria trail ЛЖИ ЕНУ Ж, 
REF: ЕТ ИСУС У ТЛО MUR; EAE CE BUT TEE BUL 
ЖОЕЛ I Cms. киви, еден (A) ЗБЕК, А. 
ЕН: ЙО. ыж. 


ЧЕ, Бе. зееа MIBER H ERE. Цанев. 
IRD BN fa TE RE MC RB TTL, (E RAE ЦЕ — ИАС E 018] — HA 0:92 АК 
ж. 


KARE MAE, BEKES, шев (ORK ЖШН) БОЖЕ ЛАВ, жи 
oA BE fE T DEHE HETE TF ЖОЙ A ZPA DUCE He BEIC ЗА H (# Ж: 


> set.seed(165) * Initialize the random number generator to a known state 
> runif(10) 8 Generate ten random numbers 

[1] 0.1159132 0.4498443 0.955451 0.6106368 0.6159386 0.4261986 0.6664884 

[8] 0.1680676 0.7878783 0.4421021 

> set.seed(165) # Reinitialize to the same known state 

> runif(10) # Generate the same ten “randon” numbers 


[1] 0.1159132 0.4498443 0.9955451 0.6106368 0.6159386 0.4261986 0.664884 
[8] 0.1680676 0.7878783 0.4421021 





та. RIERREN, НИТИ АЖ, ДАЖ 
ОХА Я ЗЕ. IEEE EUIS et.seed iW. ARA E: RETAN T RU 
же. задао T ENDE? 





E Ed 


ДЕ ИЗ ТИ ТОРА 
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8.5 ИУ 


юй 
жаманда. 


МАЛ 


Hi sample БРНА — fl ik А En: 
> sanple(vec, n) 
Wt 
ий НУНИ КЕН, Hoe o УЕ ТАЕ АТО EH А esampl eBt 
жі, 


> sample(world.series$year, 10) 
[1] 1906 1963 1966 1928 1905 1924 1961 1959 1927 1934 


НЕЖНЫЙ, BILE а запре, i ME RARR: 


> sasple(vorld.series$year, 10) 
[1] 1968 1947 1966 1916 1970 1961 1936 1913 1914 1958 


вЖзапрейкженан, ЭЕ ERASE НИИ Н. НЕ. OEC 
ама) MEMME, cnc ROTE IE ЕЖЕН. X if sample 
ii replaceoTRUE 01 EW. 


MERE el lo STIS M6 AR E ЯШ. LAF FREIER ME — 1 B Mobil f 
ЗКЕН ЕИ BERE AS IO h Ge 
medians «- numeric(1000) 


for (i in 1:1000) ( 
medians[i] <- median(sample(x, replace«TRUE)) 


машинна, RATETA f HH P or e R CEA] : 


ci <- quantile(medians, c(0.025, 0.975). 
cat("95% confidence interval is (7, ci, ")w") 


ЯН. 


95% confidence interval is ( 1.642021 1.702843 ) 
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ваза 


зпривлх FIHA —- FL RCRUS HE РНИИ. 


8.6 А 


Te] RÀ 
ЖЕЕ ЛЕ BU PI, Bl hE h NEET I RR — ІН АЛЕ RIO НИЈЕ 
я. 


BRIR 


ЦИН запрје ни, MEAE РН, ЗЕНА Ж replacesTRUE: 


> sample(set, n, replace=TRUE) 


ve 

HiltsampleJ Женя. "ol e MCI CH, МЕРЕ ВЕЋА РАЈЕ 
ЖЇНЇ, Mii, IN replacesTRUEZt EREK SEL можел, за er (sz de КЕЛШ 
лінеді. 

Tiff) fl TE ji — АОИ з БИШЕ КЛЕЯ: 


), 10, replace=TRUE) 
тте не nr “үр tw 


> sasple(c( "W 
n] Ww 


ЗЕ FRA FER — IP 20! (А SS ELA HIER BE ELI HII ЖК КИС. НТЕС ВЕТ 
ж: 








T 


> sanple(c(FALSE, TRUE), 20, replace-TRUE) 

[1] TRUE FALSE FALSE FALSE FALSE FALSE FALSE TRUE TRUE TRUE TRUE TRUE 

[13] TRUE TRUE FALSE TRUE TRUE FALSE FALSE TRUE 
ЖАННЫ U ЯО Е KA ЖАНА. BILGRTETRUEREAEFALSERWORTEXUO.S, 
ЛИАНЫ, МЕРОВЕЖРЖ—ЛЕЈЕО5. ЭТАН Ж erp ro bl ib ЛУ 
Ж, kB аи Е HEREKE O04 
(АЗИЛ "ЕВЕ ЖЮр=0.8. ЖЫП РА1$ЕЙУИЕ К 0.2, TRUER 40.8; 

> sanple(c(FALSE, TRUE), 20, replace«TRUE, ртођес(0.2,0.8)) 


[1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE FALSE TRUE TRUE TRUE TRUE 
[13] TRUE TRUE TRUE TRUE TRUE TRUE FALSE TRUE 
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HORIERISISLISIITRUE. REHET HATF, ИЖЕ ВЕБЕ МК. HF 
СЕА МН, ЗТД Н S rbinom, СЛ Ей УБ Е REFA: 


> rbinoa(10, 1, 0.8) 
111011111111 


8.7 НЕЯ 


[IE] 
TE R — A I BERALA. 


EHRAR 

АЗЕ Е, W5 sample (у) ЗЕМ — ABB FLP. 

wie 

ЖЕН апраей TERGUM. жі, кок ИСНЕ ЕЛЕШЕ —1-Ж 
ЗАЖИВЛЕНИЯ. RICH sample (v) HET 


sample(v, size«length(v), replacesFALSE) 


кажи спомнете CRI LET TER АШ НХ. КИ — ДРЕ 
PI", FA, ..., ор. 


> sanple(1:10) 
1] 5374392611 


E I 


L 8.5 T ME £X T затреба. 


8.8 iF HEELS HIRE 


те] RÀ 
TENE LEREHE Ж — РЕНН R ване. 


Е 


ЭРИ ВЕЕ РОХ = х), ВЕЛЕ ВОКЕИ. BUG TUPÉOBDE ФЛ 
198 | Жат 





вж, МАНА "d" ПЕРЬЯМИ Яш, dbinomi ЖОИЕ 
ж. 


HTP RRR, РОХ < х), ИУЖК ЖИ. НЕОНА — 2 
Бак, БИЉАНЕ “р” ИЕР, АЕ. pbinonib Що 45106 ER. 


ий 
УЛАР АХ, К О, Е fg DUIS IU ЛШ 1/2, 702. 
ПОДА И Ч лот, HHRMA = УВЕ, 


> dbinom(7, size-10, ргов-0.5) 
[1] 0.1171875 


БЕКЕЙ ИЛЕ ЖЕ) 90.117, RAHE аЬ і поп. ЖЕСЕ Н СБ КН 
ЊИМ (probability mass function) ВЕКА (probability function) , УНИ ЊЕ 
лала ады алла ата тада ЕСУ 


ЖЫМЖР(Х < НИМ, ВНЖ. Сл Жз Ж ñ МОЈЕ 
pbinom, DL ТЕХ = 7 BUICK. (Hin, P(X < 7)) : 


> phinos(], size=10, ргов-0.5) 
[a] 0:9453125 


НЕЛИ МАХ < TIBERI 20,945. 
шегі W oy fi fiya t тауа At: 


om BE. Р (X=x) Bm. Pre) 
тов dbinom(x, size, prob) pbinom(x, size, prob) 
лав Фвеот(х, prob) рвеот(х, prob) 
darts dpois(x, lambda) ppois(x, lambda) 





ЗЕ ВЕ ЕЖЕ AE ERR BEC, Р(Х > x). ИН ИЛИЯ НН 1омег. 
tail=FALSE Ve USUS EROR, Чт, 


> phinon(7, size=10, prob=0.5, lower.tail-FALSE) 
[1] 0.0546875 


АГ" SUR Et Х > TWIRRE 20.055. 
VCI ШЕР (с, < X < x) ЯНИЕ Ш, ns НОВАЕ, ETARA RRR 
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ЇЙЇ НН: Р(Х < x) - Р(Х < x). 3kBRUPOG < X < ЕВА. 
жа»: 


> pbinom(7,size=10,prob=0.5) - pbinom(3,size«10,probe0.5) 
[1] 0.774375 


ВИНИ ЕУ ЧИ ЗЕ EGER Il — 1 HERE. ik ERITH FR 
БЕК, P(X < 3)RIP(X < 7). (EXC Ul pbinon: 


> pbinos(c(3,7), size«10, ртођео.5) 
[1] 0.1718750 0.9453125 


ЗК ТЕРИ RRETH. вааз РАРИТЕТ EKE, ЖЕ 
БЕЙ Р pbinon(f А НИЖНИ ВЕКИ ДЕ — Me GRE, СВЕЖ: 

> diff(pbinos(c(3,7), size=10, prob=0.5)) 

[1] 0.7734375 


PRSA 
иж “ал” НИИ ВИЖ. 


8.9 УЕ 


в 
Fili EI ERBIL MEAS ARK (Distribution Function, DF) МЕ ВИА 
Ж (Cumlative Distribution Function, CDF) . 


AS 
ИЖ АЖ, CHRP < x). ЖКМ ЛЯ, АЊА 
и “р” ИЕ f Fo ERSTE Hm, pnormd iE 2 бо i ñ tk. 


не 

кк i BOB — BOR, УУ UJ Ж Ж ЕЖИКИ: 
ММА (SUHRS) В. SOEMOERHIEEHUERETER ДЮ “ВОК”, HD 
P(X = х)=0. ЧБ, "EIE ЕНЕ. 


ЭЕ в, PU AMER ВИНОВЕ B агза М. FEURS Е 
заванавак. 
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9m BH. P(X<x) 


IER AM pnorm(x, mean, sd) 
Ед pt(x, df) 

ут pexp(x, rate) 
пуу pgamma(x, shape, rate) 
Tad pchisq(x, df) 





ЗАПЕРЛИ Я p no r mc HERE АЕ 663E ИВЕ, (BLUE ALD ril — ДИ 70 
ЗЕВС ЗЕ ЖЗ НЕ. ИЖЕ КЖ, ТИП ЗЕ ТЕХ ~ М(70, DREF 
НИРС < 66): 


> pnorm(66, mean-70, sd«3) 
[1] 0.09121122 


ТАНОВ, ЗАГСА рехрН- 440 ЕЛИ АЗИЗА ЕЛЬ 20 ВЕ К. 


> pexp(20, rates1/40) 
[1] 0.3934693 


Занда, ЕКОЕ. "ПЛЕ S BL ower.tail-FALSEX HIET 
РОХ > х). КИІМІН рехрИ UI TIR UL ТНК ФЕ K FSR: 


> pexp(50, rate«1/40, lower.taileFALSE) 
[1] 0.2865048 


FIH, НМВ, UF IE HE ВЕНУ НЕК РОХ, < X < x), УПА 
BELKE, MPX < x) - P(X <x). HF ERKE, ik BP(2O < X < SO 
“ЕЗГЙЕЖ A 20 — 50 МЕЖ: 


> рехр(50,таќеч1/40) - pexp(20,rate-1/40) 
[1] 0.3200259 


RSA 
BRER “йл” МЕТА. 


8.10 FERRE A 4) fir 


ie] RÀ 
Ер, MEEKER: MRK, EH < x) = p. 
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Нађ 
корава некен, EHRE. из БИЛИИ “q” W 
РИМ, Mán, апогее БВА, 


закашив-гвилвк. MTIUERUED SIDE AE, жш, Wik. RER 
ok, 


> qnorm(0.05, теап=100, sd=15) 
[1] 75.3272 


не 
VEO trt — 1-6 ИЯ ЗЕ W ñ СС IRL LEE Яп Ж ОПЕ ний — ИНЕТЕ ЖЛЕ Ж 
9596 W W Del (a =0.05) , АЗИИ ЗЕЕ H a/2 = 0.0251 - ау2 = 0.97512 (у. 
к. 

> qnorn(0.025) 

[1] -1.959964 

> qnorn(0.975) 

[1] 1.959964 
ЖЕНА ИН, HERKE СО Д0 — И САГО ДЕ A У ОР И О ВЕСТИ 
ANODE. ЕТУЛЕРІ 

> qnorm(c(0.025,0.975)) 

[3] -1.959964 1.959964 
каки ӘК ЛЖ. ТИХ — BE IRS МСА HS G ВА. 
ж 


D эшка 

сев qbinom(p, size, prob) 
ла qgeon(p, prob) 
MAD qpois(p, lambda) 


FEE E ИУЖК M fy y ста 


өт впава Зал бе spa а 
ESIN qnorm(p, mean, sd) 

ТҮРЕ qt(p, df) 

ditioni дехр(р, rate) 
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яғ полая 
fy qgamma(p, shape, rate-rate)stqgamma(p, shape, scale-scale) 
EL qchisq(p, df) 





іні 


ARBROATH, НИИ 95. 


8.11 ЕН 


в 
ОСЕТИ 


жалж 
ПИО os, V ЖУК ñ tes Hl T tA и ADHI, FARS 
UAM T bitis 


> X <= seq(frons-3, to=+3, length.oute100) 
> plot(x, dnorm(x)) 


We 

О ТҰСЫ! 
SUE IE F BRI. ТЕБ НОЕ ИВА апота, 007245 (gamma distribution) fff 
№: ватта. 


MRE REKET e OE LR. BA ACE E НЕ ЕЕ НОЕ IL ЈЕ 
fora. 


ети feed Ola T — Pa d HER2 x 208, #пїн8-19г. 


X <= seq(from-0, 10-6, length.out-100) # Define the density domains 
ylim <- с(0, 0.6) 


par(nfrowsc(2,2)) 8 Create а 2x2 plotting area 


plot(x, dunif(x,min-2,max«4), mains Unifors", — $ Plot а uniform density 
types 17, уа-уа) 

plot(x, dnorm(x,mean-3,sdei), вале" Ногай”,  # Plot a Normal density 
Туре 1, ylim-ylin) 

plot(x, dexp(x,rate=1/2), main«"Exponential", 4 Plot an exponential density 
буре- 17, ylinsylin) 
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plot(x, dgamma(x, shape-2, rate-1), maine"Gamma' 
Зуре- 17) ylineylim) 


, # Plot а gama density 

















untom Normal 
HE š | 
s НЕ: 
š Е 
i. i] 
В ==! зс = 
W T ms 3 те $3 3 3 4 $ $ 
Exponential Gamma. 





ов 
n 


=) 
=Á 
o4 














00 





бери, rato 
o2 
"En 
dgammalx, shape = 2, rale = 1) 
02 
نر‎ 


9 ттт 
о 1 23456 











86-1: ан 


CHER e He D (RAP MRA, ТЫП ЖУСШ МИТ EDIB. 98-2 — 4 ED: 
WI €: < HT ЕЕ. 


ВИП AMER, АРИЯ Тро1 узоп р — MUT ЕРЕ ЖӨНІН. же 
polygon£z il —i& if #& HL £e BI JE LX МЕЗЕ НА ЖЕ 


их, вишње. 


x <- seq(fron--3, 10-43, length.outei00) 

У << dnorm(x) 

Plot(x, y, main-"Standard Normal Distribution", type-'l*, 
ylabs"Density", xlabs"Quantile") 

abline(h-0) 
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88-2. SEDES 
JEK, ВИП PIE КВО. KERR RK — RAA, EHRE XL. HR 
Жройувоп iE Hif ЛУКА Ро y) POR 3k 4 3E 

# The body of the polygon follows the density curve where 1 «= z <= 2 


Tegion.x <- x[1 се x A x ce 2] 
region. <- y[1 c x & x < 2] 





# We add initial and final segments, which drop down to the Y axis 
reglon.x <- c(region.x[1], region.x, tail(region.x, » 
Teglon.y <- c( 0, region.y, 

ав, WHpolygondfe МОСВ IER MORE: 
polygon(region.x, region.y, density=10) 


RUMET, dilltpolygon АЕ UABEGOR, епз і булон Я НАБ" ЙУН HK 
кани. A STELLE HUE, ЭПИ RI densi ty29- ЗЕН ЖИ co 2 TE RE 
в. 


polygon(region.x, region.y, densitys-1, сој="тед“) 
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9598 


iiie 





f& fr 


АЙЕ ИЯ # УБЕ Ht IRSE LE, RIN. ЖАБЕ SEHR, Aey DEL OU 
Art T IER, milik. KENE ДИКИЕ Ж R CL, Е 
Hk L QR ОСТА R. ДЕНЕК ИНО, ЖДО] БЕМ АЕ @ Ж) 
"Пейн, CAFRA HE. 


Бі, aR 


ЖОИЕ БЕКЕ ШЕ AS SEMER E. ERARE, коте 
AER, РНЕ, СЛЕВА. 


ЗК MME, БОБОВ (null hypothesis) , ИНА ТИН ЖЕ. ВИЖ, № 
ПЖ, ИНОЕ, о Е 


ВОЉЕН, ИННЫ (alternative hypothesis) , BAKO HERA: BN Im. 
TET CHOR Айви, СЕНАТ DERIER, ЮЛ. 


ULT ЗЕ НИ НЕ ЖЕНЕ ЕРЕВАН UC f ТАЕ А 


1. НОВИНЕ. 


2. НЯ HAESEHHR, ха трайни, МАНЕЖИ, ВЕЖЕ НЕ 
ЗЕНА ЗЕ ЖИВЕ. KEMERE, RLAR A, CTS RE ERE 
ЖЕН, Hin, LEH саа, 


206 


3. MERMER, ИПТАР ИН ip, EAE ТЕПЕ НИВО, 6 
экшн PERIERE SEL HIE HA BOR. 


4 ШЖрРИЖАТ, WARA ТІНЕН. АЕ TIRE ЛИНЕ 
5. ЖРШЖУ, ВАШЕ. ИЛЕН. 
AUR A LEMAM: рій ФЕ “ЖАУ 2 





ви. EFER, ЖЕМЕНИ. cip <оозм, или. р> 00, ине 
"E. ОНОРЕ, ана Ж а= 0.05, ҒАНЫН АН ДИЖЕ. 
ашни. 





Жш, (кер, “АЯН”. АНЫН ЖКО EI, Я 
Mp <005i8 НЕГ. (RESTE. EMEK, ВЕЦ Ар «040. Ж 
ЖЫҚ ЯН, УВ 0.01: < 0.001 T fiE AE HER, 


Ek Л УВВ, MENA NS pl, HERES (CREE LR HEK Pa 
ние. ЖИМ РНЕ. HIA (АИК) ЧН, 


MRH, РЕЛ Т0.05, АФУ ВЯ, Кяри 40.05, МИЉЕ 
нъ. 

R A F N MAA EA: 

to ARI: EE, 

` АЯНЫП. EER, 

° #14=0.05, шЖр<о05, БАНИ, ERT Т Я{ I MEER EER 
Жив, imp 005, ЖЕНИ. 


° ЦАВ Ааа. ЧЕ, Жа, EARTH ВЕНА 
fal. 


iet. нен REIER, ЖАНЕ РІНЕ, OUTIL GS 
IR EEE BORE REN, JET UBRO EE RI, dr RIVERS HEURE SCR IU 
ПЕЕ ЕО, ifie B Wackerly^$ Aff. (Mathematical Statistic with Applications) 6 
Wik CBE LETS IBI JC Re СЕРБ. 


их 
BUE —Љ OAWCORMIDECERR. нъзволважа. НА, CREL 
HERRON. важжван- тийн. ИН. ИЕН ІНЕ ЖЕ 
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BEREK, ПИЛЕ ВАРНЕ. Жж. ехайк тнт, БАНА 
p: 


An UAE ЖЕЙИН, шетиакн, М-Ж R li k F "Ir HI 1 E 
МЕНЯ. exer ПЕНЕН. НОЖЕН ЖАН. 


Яш, 2709 91 ИЖ ЖЕ 95 вата. ЕК 97 16 <и < 
103.98, ik ЖК ЯТ ЯГ95%Ы ВЕЖЕ ЕНШ ФЕ (697.16 ~ 103.982 М. 


PASA 


ВЕЖЕ НИЛИ ТОН. №8 КОН Wackerly $ AN (Mathematical statistic 
with Applications) , 0606 (Duxbury ЕВЕ) MIRMA. ВАХ БОЕ Т ИЕ А 
HURMETA. 


9.1 СА 8% 


БІ 
каин ЖЖ. 


WRITE 
SilsummaryH FE, ERE. ОНОН T — EA HEELS: 
> summary (vec) 


Min. ist Qu. Median Mean 3rd Qu. Max. 
0.1803 1.1090 1.9520 2.1750 2.6920 7.3290 


үне 

MUCHOS ТАО В. ist Qu. Язга Qu. Фаний = yt. eden 
Ti С ОУ СА ВОРЕН 
ARP CEA E3O08 , КВТ ST REIS ЕВИЯ. 


ЖЕ влеят. TIEREN — ЕРЕ та DICA, t= 
FIS} PI Samp1. Samp2. Sampi: 


Sasp2 
Min. : 0.1378 
ast Qu.: 1.2686 








Median : 1.8733 Median :1.8466 
Mean : 2.2436 Mean :2.0562 





3rd Qu.: 2.9373 3rd Qu.:2.7666 
Max. 111.4175 Мах, 16.3870 
AAFC EHH: 
> sumary(fac) 
Yes No Maybe 
44 20 36 


ба GE, 2 ЖАМАН, ENR, ATE MCA. 
HEHE а — RECS, ЗНА РВИ Ни (TRAO), 





> summary (suburbs) 
city county state 

Length:16 Cook оў dua 63348 

Class character Kane :2 IN: 2 73833 

Mode :character Lake(IN) :2 WI: 2 36100 
DuPage i 265042 
Kendall :1 103615 
Kenosha :1 : 2853114 
(Other) :2 


РАЗА "IC AT жәнне. OU НАА АЕС ЖР. ЗАДЕ 
ВЕ: 


> sumary(vec.list) 
Length Class Mode 
5аврј 100 -попе- numeric 
Ѕатр2 100 -попе- numeric 
Sanp3 100 -попе- numeric 


CET ARIK, ЕМ ЯКИ Hl summary 


> lapply(vec.list, summary) 
А 

Min. ast Qu. Median Mean 3rd Фи. ax. 
0.1803 1.1090 1.9520 2.1750 2.6920 7.3290 


$Samp2 
Min. ist Qu. Median Mean 3rd Qu. Мәх. 
0.1378 1.2690 1.8730 2.2440 2.9370 11.4200 


$Samp3 
Min. ist Qu. Median Mean 3rd Qu. Max. 
0.1605 1.0060 1.8470 2.0560 2.7670 6.3870 
ЖЗ, биппату ЖЫҒА ЫЖ Ao. (lino XE НОВО. XE 
AFERRA, РАД ЗЕН summary, #25 EUR а i mad. 





ЖЕНЕ | 209 


PASA 


$1Jik2687ik62, 


9.2 YF PUB 


IE] 
БШК £ RON ULIS НЕ. 


МАЛ 
ЗВАНИЕ PIERO RK НИ своя, RI теа n ER ВЕЖЕ НИВА НАУ Я 
MAME, (dn, RE х, ILL FA ВЕНЕ ИСТА 


> mean(x > 0) 


пе 

ОНАР ЕДЫК, Рене — ИЗ НИСА Е (TRUERIFALSE) , EMNE 
Жо. пептидна кю, HEFL. ‘ЕН T ЛИК ЉТКЈЕ 
МНЯ — BD fis ТИСА ПОСЕТИ dn, (E Е ЈУРИ ГЛЕДА 
аа НИ. 


зове ЕНЕД бо. ACC BR ЕОР АЫК, Til e АЕ (И 
f. 


mean(lab == "NJ") 
МАИ New Jerseyff) LabBi НЯ. 
mean(after > before) 
НТ ЖЕНИ ЭТ НЕ. 
mean(abs(x-mean(x)) > 2*sd(x)) 
ЗЕЕ ВЛИЯЯ Ar be E XE fj LBN ñ ӨТ, НЫ. 
mean(diff(ts) » 0) 
ЗЕЛЕНИ. аа КРЕМ — IR И АИ REAL. 
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9.3 ЖЕ ЕЯ ЗЕ 


б 
АНА ИЕН e EIL NATHE I ЖО. 


МАЛ 


тате?“ EMATE: 
> table(f) 
“EDAN RHE $D Top У (ALR) : 


> table(fi, #2) 


ию 


вае У ОЗЕ, ИШИН Тіліміз ША f-outconeff] ЖЕНЕ: 





а 
Yes No Maybe 
37 36 27 
> table(outcome) 
outcome 
Fail Pass 

2 з 


Шатты а тала УЗЕЛ ГЕЛІ ТТІ 
№ FMA" RET EDK: 
> table(initial, outcone) 
outcome 
initial Fail Pass 
Ye в м 
ө M 12 
Maybe 10 17 
ЖТЖ T initial = YesRloutcome = Ба НА RIE T 13, initial = YesRi 
outcome = Passi & RIE T 24K ¥. 


218 R] 


Alxtabs U TLE RAKR, НРА, НЛК. 
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9.4 13$ 2) Ж ЯР E o sr ЊЕ 


із 
ОСЕТЕ УК EER Юа UPC GEAR TER. 


Е 


ЗИН аЬ лева сх Bi УА FERMARE, RIE Fr summary BOR HL АИ 
куве: 


> sumary(table(faci,facz)) 


анажоа- Тр. RRA, рї Л РО 05, JE REUS RET AM ERO s порив 
340.05, ИЖЕ ЖЕНЕ. 


и 
AMFA PARAGE RARI, е р Жо 012 55; 
> summary(table(initial,outcome)) 
Nunber of cases in table: 100 
Number of factors: 2 
Test for independence of all factors: 
Chisq = 8.757, df = 2, p-value = 0.01255 


JE Rip Uh, CARERE IR fi nitialfüoutcomez: ilt ЕЖЕЙ). АО ЕН 
Kt, ЕЕН А — E OR. 


AWSR 


сна за test TIMEX. 


9.5 НИНА (ИО 


[DE 
HUE ЛЕВ, MEER RUSO ROO tr. ФЕ, RRM, 
ЭЕТ УА 


RORIS 


WHE quantile. ZERER: 
212 | Нож 





» quantile(vec, f) 
яғма. лайв ERN: 
> quantile(vec) 


не 
месо 871 000/50 — 12 ВИЕ. quantile TLL UE МИКС A y 
Троа я: 
> quantile(vec, .05) 
5х 


0.04575003 


dn Ae BOR А ЯМ, MZ quanti СНЕ НИ “RE 
ж. 
EIGER, = БЕТА ВОР. БИНЕ, из лен —^ 
НЕВЕ, E LR FE BORIN: 

» quantile(vec, c(.05, .95)) 


st 9% 
0.04575003 0.95122306 


E ДАДЕ — Fi (ERR BR Hf i (699096 ВНИЗУ o 


Anc t VOR. И, так UAR ЖИНИ К О, 0.25, 0.50. 0.7581.0, ШЧ 
ts 
» quantile(vec) 


ox ask sox 75% 100% 
0.001285589 0.260075658 0.479866042 0.734801500 0.997817661 


АЛИЯ, вацап іле ЖЕ ВЕБ ЖЕ ЗВОНА. ТЕЧЕ БЫВАЛ Я: 
би с еі. ИЕ. 


9.6 ЖЕНИ 


вм 


ЗЕР ARM, ИНЬ НЕ. ФЕ, REDE Tff e ИУ 
нит. 
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вал 
BURG ETE месон, EERME ERMETE, ЈЕНЕ Rea ni RUN 
йужик. 


» mean(vec « x) 
Wie 
05 vec Olive cT IO dg e CR УННН, JE ELT SEHR, Jh 


vec[n] <x, Mn E SIHICIETRUE. Hiltmeanitrix 27 ИЕ ОНИ, OMFALSE, 1 
TRUE, Hifi VOR 3S MCI TP RENNES EC OA, s E Pr ок, 


3855 


jk Ë Jj 24! па — - FRE 


9.7 ЗЕЯ 


а 
МОЛНИЈА. ИСТРЕ OH ВН тежио A Eo ЧОН 


RHR 


WINER осаје: 
» scale(x) 


IE ATH ORE LR, ЕРЕЖЕ, ТЕРЕНИ Е, scale аиа, {ER 
EHIME Е, scale A eftt Plt H tE — УЕА аз ГР T CCCII 


не 
TEST EE RE HERE M — He HH T B AGE CEU TC. GE STER НЕНА Ge RE GS 
СА 


> (у = mean(x)) / 80) 
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9.8 RARES EE (14:58) 


IE] 
BMT erp ИНИ —1-ҤЖ. ӘНЕ ЕЙ T BOE, КАН И ӘНДЕ THAT: 
Ит, 


вал 
ЯНИЕ лев EET Ren BUT Rusa 
> t.test(x, musa) 


НЫ УРА. ЖЕНДІ, mp <0.05, ИЗНИК АТИ т, ifm p 0.05 
ШИЕ DEAS UCAS $ mft ERR . 


ЗАДНЕЕ ЛЬНА, 362.20 ТЕМ ЗА E RIO HIE rR Хо, МНЕ МЖ 0 
ИЖЕ УЖ, ®ХФ ЖИ) “Л” W? — а ИНЖ <30. 


wie 

raga ЖЕН pO ТД, КШ ED AE AER ЈА HEREKE. FIRO 
РАКИЯ Љиг 10011 3E AE Ж БИШЕ, RIE RUN He Е UM C e ВИЛЕ T E 
95, t. test БЕВАИ 50.001 897; 


> X <- rnorm(s0, mean«100, 54-15) 
> t.test(x, mu=95) 


One Sample t-test 


data: x 
t = 3.2832, df = 49, p-value = 0.001897 

alternative hypothesis: true s not equal to 95 
95 percent confdence interval: 





97.16167 103.98297 
sanple estimates: 
mean of x 

100.5723 


РАНАХ, НД (ЖИЕ ЖЕЙ) 957 STRE AE ЕНДИ. 
аве, ТАГО ЕРИ ЕВИЯ. ш Ж УНИЈЕ 95, ЗР РОЗЕ НЕННЕ (r 
73.2832: E BERI A) УВЕ 410.001 897. зжкегвево, вто RTT BOR NR 


Чи. BUE, REHAR: перлен, ПАН ЖЕЖ НЫ. e 
3964695. 
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SHWRS НЕ, HFAA ONR, S810 p18290.737 4: 


> t.test(x, mu-100) 
One Sample t-test 


data: x 
t = 0.3372, df = 49, p-value = 0.7374 
alternative hypothesis: true mean is not equal to 100 
95 percent confidence interval: 
97.16167 103.98297 
sanple estimates: 
mean of x 
100.5723 


Xp, ЕЖ 55 BE uA IOE, RKG, BORA 
MLUCUEBHE ААИ 100008. 


АВ МАИ SCIEN IUD pitir. n Us RR Тиек, МАЊЕ. 


E E 

testi Раван. ИНО РАВЕНА. 
9.9 БИЕ Ex [8] 

а 

т-ти KIRE, TEUER DOMUI HUC. 
миля 


ЗАВ testi H FREN: 
> t-test) 


"ERA Ui 611959 ЖМА ЖЕЗ RHA. Ж T RCE RAK FEKI, UU fe сопе. 


level, 


EME SHOEI, m kit k katta. Яр ТРА УГЗ ВЛАС, 
АЕБ Ж, МБ, РЕНИЈЕ REI — EIER <30. 


ию 
Жай. test EDT ЕРА АН. РАНА. 
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> X <= rnora(50, mean-100, 54-15) 
> t.test(x) 
One Sanple t-test 

data: x 
t = 59.2578, df = 49, p-value < 2.2e-16 
alternative hypothesis: true mean is not equal to 0 
95 percent confidence interval: 

97.16167 103.98297 
sanple estinates: 
mean of x 

100.5723 


fk BT, ЕК Ж897.16<и< 103.98, ФИЯ (97.16, 10398) . 
ditit Wconf.level-0.99, ILL (АЖ He ils 399%. 
> t.test(x, conf. level=0.99) 


One Sample t-test 


data: x 
t 59.2578, df = ад, p-value < 2.2е-16 
alternative hypothesis: true mean is not equal to O 
99 percent confidence interval: 

96.0239 105.1207 
sanple estimates: 
mean of x 

100.5723 


БД ЕВЕ МАХ М НС 2996.02 < u < 105.12. 


9.10 ФА B ë P< 8] 


ізі 
Tii ЖЕН. Vil b LED WPC. 


RRR 


WHR мі сох. test, E Rconf.int=TRUE: 
> Milcox.test(x, conf.int-TRUE) 


Ai HEEL 63k eb o E RINK N. 
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ию 
VEROS COS RR E IBI RO E ЕЕЕ Ж НЙН Г Ај. ЖЗ, КРУЗ И + 
"bir. изенятежаактюнав. HERO. CBPF “HR 
ЧУЖИЕ” юн. БОЯН 1 сохоп 9 ЗЕ —1-4ЕЖ bof RE VERE D OC GC 
DL 
Mwilcox test HFR ЗЕ. ЗАВ ИЙЕ RAK FE 959% W N DC, ЕЖА 
ЖЕМЕ (0424, 0.892) ; 

> Wilcox. test(x, conf. int=TRUE) 

Wilcoxon signed rank test 

data: x 

У = 465, p-value = 1.863е-09 

alternative hypothesis: true location is not equal to 0 

95 percent confidence interval: 

0.4235421 0.8922106 

sample estinates: 


(pseudo)nedian 
0.6249297 


TILL ik НИ conf .level, ИЯ И соп. level=0. 993 CHE ЖС {А ЖР, 


hb Do rh ОСО Ж, ‘ERIE SX FILLE лоттар аа ЗВ О Ч 
ана алуа ааа 


> median(x) 
[1] 0.547129 


СЕ ТО 


A MERE ЧЕ ty te ЖА С ЧЕН ГОРЕ 08.7/458.541771513.8, 


9.11 ЖЕ 


T8] RÀ 
BUR ВКЛ, нй Ж ЖИЮ. КАНЕ 
р, ИЛИ ТЕЖИНЕ IH ERIE. 


ERIE 


ЗИЛИ Е ртор. без, BIRRE ЕЛЕН HEEL ыж»; 
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> prop.test(x, n, p) 


зная Три, KERA, РИ F0.05 dE FC НИ STRE RE p Жіірін K T 
0.05, ИЛИЕВ DE RC EE DURS Р рУ ШЕНЕ. 


Wie 

ШЕ ШЕК ЖЕ ОНЫМ. ЗЕ ар ВА (Chicago Cubs) ШЖК, |А 
АЯТ ТОНИ, ТРИ, REK, ЖИМ. Ж РОХ РЕНН, 
EHRE HIAL” J ARB ATES ОАЫ FLERE. Sz cm ic ir 
що 


HRiprop.testsIDLPEAERERUEAE, КН, ЖӘНЕН Жл- 20, ОИК 
xell, НРК РНЕ CX BOR, OCTUBRE төленетін, НІ увива 
Ж: P> 05. ДЕНЯ Е, ргор.кез ЕР #0 ОЗИ, ВИП W ® 
Каетпа уе="ртеаћет "ЖЕ р> 05, 

> prop.test(11, 20, 0.5, alternatives"greater") 

1-sanple proportions test with continuity correction 

data: 11 out of 20, null probability 0.5 

Xesquared = 0.05, df = 1, p-value = 0.4115 

alternative hypothesis: true p is greater than 0.5 

95 percent confdence interval: 


0.3496150 1.0000000 
sample estimates: 


P 
0.55 
Е Жргор.гез АН T —1-ЖїўрЇй, 0.4115, KARMAKAR, RD, R 


ПНЕ r PBB ННВ. PEK TF 248. УЖУН ЖЕ DIBE, REFINER 
БАРАА Т.Ј. 


9.12 LE DIAS ЧЕ P< lB] 


T] RR 
MAG Herb вен ВЕЖЕ, Бн йл) SKURAR. ЗРЕО, Dk 
EIER H а о И 


МАЛ 


ЧИН ртор-е5Е. ВИНЕ НЕ Аза. 
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» prop.test(x, n) 


Àk 4" ИНАЯ НР E (C [8 


vie 

ЖИТ Т ЗР ПРВИ НИНА А, "EPIRI ХР ШЗ ЕНИ, (8 6038—10 
MAKIRI ЙЕ ЕИО Е Ei ВОЕН НЕКЕ БЕНИ. 
Ж. Blin, НН, ЗЕРО НОК. CARRER, алман 
KE, МЕТУ EBET GA. Db, EHER Е НК ЕЙ НК 96/9366.7%.. 


Wiiprop.test, "ГНЕТА MRR ЕВО ЗОНИ ВИС. ix, 
MIU ICH JEn = ӨЗЕН ЛИК = 6. SILET козе W N ko РНИИ № 
(0.309, 0.910) ; 


> prop.test(6, 9) 
1-заңде proportions test with continuity correction 


6 out of 9, null probability 0.5 

red = 0.4444, df = 1, p-value = 0.505 
alternative hypothesis: true p is not equal to 0.5 
95 percent confidence interv 

0.3091761 0.9095817 
sample estimates: 








р 
0.6666667 


MERAT, Як "HET ВЕР BOR 66.790" HRNEK AE UB ЖЕ. (hd) 
ЗЕНА А.—1-4ЕЖ ИЗИНЕ. 


EMU Г, prop.testH IEIS% HARF ЕВО ЕМАС. ЕЕ 2 соп+.1еуе1 it 
ЖЖ: 


> prop.test(x, n, p, conf.level-o.99) # 99% confidence level 


PRSA 


LUNAM 


9.13 RRES 


те] ад 
(ЕТЕЛ НОО ЖЕН ЖАСИ RUE B IER D HS tk. 
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МАЛ 
1А Н ё 5пар1то. test: 
> shapiro.test(x) 


НАНА ИрИ, RRRA, р<0.05 B HE ESTER JE E 2. Rip 0.05) 
HEBER HEAWEI. 


We 
ОТА ТЕТУТА 
> shapiro.test(x) 
Shapiro-Wilk normality test 


data: x 
W = 0.9651, p-value = 0.4151 


METRE WIRES 0 AE STRE Е Б Жз. FAATERE OR Op HC 
ВПК A WEAR STRE А — 1 ES E 


> shapiro.test(y) 


Shapiro-Wilk normality test 





iy 
9503, p-value = 0.03520 

ЗАМУЖ НЕ мики. (Shapiro-Wilk) BEHERE. PrE ERRA f 
tnortest, ЕЛФИТЕ ВВ. ix XI Uu ЕЯЛЕЖИ k: 

*  Anderson-Darlingł% (ad.test) 

• Саппег-Уоп Міѕеѕ 92 (cvm.test) 

.  Lillieforsê% (lillie.test) 

° Pearson kHRRESHEHARI (pearson.test) 

* $һарїго-Ргапсїа#@%@ (sf.test) 

ЖЕ h tF TE ОУ ОГ ik. HERHEM REN, ТЕГИН ДЕЛЕ 


важи. иж. Е ТЕЛЕ. ЗВЕНЕ, HARTI 
Efe IRE. мыш HERRE, MUST MEUSE РЕНЕ ЖЕ. 


ЗЕ БОРРО ЛАСУ ЕН (85175251018) ЖО-ОШ (7531021) , TUE DU HSE 
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ipae Rol iE STE. yf e Bbk 6 ЖЕРЕ? ВОЈИН S Ki? H 
ПАРЕ, АЕРА РИО STRE RE ІН. 


ASA 


КР шие кпогез KEE, Wii Jik3.9. 


9.14 Ет 


в 
Bomb ДЖ HS ERI, іп "ER" ott. con mon s “FU F R. 
радалылата далала таза уа ТЛА 


RHR 
Илеть лезь, И ЛЕЕВ ЦО. Зк ЬЕ 
Та 


> library(tseries) 
> runs. test(as. factor(s)) 
гипо. testo ріс. RMA, pl] 0.05, ЖЕЛИМ NERELI, FR 
Тірі Ж-Ғ0.05. ЖӘН ЕНИ. 


не 

ШЕВА (run) ЗОО СОЛЕВ НИЙ 2/10. BUHL PURE ik 
МИКИ. ЖЖ EME. ПЕЊЕ, ке АО РИИ. ERN 
ЖИЕН (0, 1, 0, 1, 0, 1, 2) , ЕЖаЗИЯ, (ИЕЛЕ? 


гип Кез ВОЛОВ. mk FEE et БІНЕ. EE SR RNP 
ш. 


38 — ^ DUT- E HC НОЖ ARREA, К НА РЕП ЕНИ. ЖЖ, 
тип Леви Шак Г-УВЕЖЮРИ, ЖЕКЕ ЙИН ST REA BREUI : 





> library(tseries) 
> s «= sample(c(0,1), 100, replace-T) 
> runs.test(as.factor(s)) 


Runs Test 
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data: as.factor(s) 
Standard Normal + 0.2175, p-value = 0.8279 
alternative hypothesis: two.sided 


ЖИ, КА ЛЕНЫ ААВ, ӨТІ ИЗАШЛА 


> 5 €- €(0,0,0,0,1,1,1,1,0,0,0,0) 
> runs.test(as.factor(s)) 


Runs Test 
data: as.factor(s) 


Standard Normal = -2.2997, p-value = 0.02147 
alternative hypothesis: two.sided 


m$ 


BYE ARIS, 


9.15 ВЕРА FEKE НИЯ 


217 
АТОС СТАВ ЕМ UAE FT АКО ВНК. 


мал 


LIN Ке кезер. 
> t.test(x, y) 


«ВИИ Е, t. tes IE е 

nE) , АНЕ f Btpaired-TRUE: 
> t.test(x, y, pairedeTRUE) 

(EFE PHWCT, слез МНН — Гр. RERA, mp <0.05, ВА ВИН ТИЕ. 

ЖЕ, Tip > 0.05, ЖЕНЕ, 

to НЕВЫ, БАВЉЕЊЕ. ЖШ, “Hh ARDT 
зовн. 


to ШАЯН Ж, HoESEvar.equal-TRUEDUBORAIEI ЧЕН 
(арзи дг). 


e RRM (ах tg 
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зе 

EPIIT TL M Ad сижижанах (S 
ВАНО ИИ) ЖОНЕ НЕ НО. RTEA ЕВО 
ж” АЛЕКЕ ЕЙ. НИИ а Т. 


ТЕ та BUR ELA БЕЕН, TR o TES FART ES 

жж. БАСТААН (Е W FENG IEE TS RE HESS АТЫНА. ВА АГА 

Эа: 

1. МИН АЛ. ВПР ЗАТЯЫ, Жан Ени, 2-48 Е 
жар, ҒА, ВПР SATA. ЗИЛ HOUR. 

2. ийин А. палати S Ш5АТЖ1Х. 5 — mde de Jn 
W. АЛАГ БАТАҢ, (ВАЛЕ КАНУ. 


Bb ER, кин жы, «за, EF ЛЯН (Чий 
WE) ЗЕН ТИПН EAK OG. ERAH, ЖЕН. 


тж йл WI (K1) ЗЕН HEU ГОРЕ ВС (K2) 2997. Ж 
ФИА OEIL И 00.986 7: 


> t.test(oy) 


Welch Two Sample t-test 





t = -0.0166, df = 198, p-value < 0.9867 

alternative hypothesis: true difference in means is not equal to 0 
95 percent confidence interval: 

-30.56737 30.05605 

sample estimates: 

mean of x mean of y 

501.2008 501.4565 


ЗЕРЕН. РАНА У НОВ ЭЕ ЗР. А, ПОЕНИ АИ аяне, ТЕ 
ЗЕЕ венче, ЗОЗ А in Бон E ARE GT LER 


> t.test(x, у, pairedeTRUE) 
Paired t-test 


x and y 

.3636, df = 99, p-value + 0.02005 

alternative hypothesis: true difference in means is not equal to O 
95 percent confidence interval: 

-0.4702824 -0.0410375 

sample estimates: 
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mean of the differences 
-0.1556599 


рій О 020 05, (FAIT MUI IDEO. 


855 
жима Жако (КАН) БН НР, ВА ЯЕ BOR 9.168 
Billie (f)Wilcoxon-Mann- Whitney 38, 


9.16 Е ЉУБЕ SURE RU Е 


а 
ИЖ А АИЗО АЕК. Н Е, (Н Ешй PAUCAR, ИЗ 
ji: HP BES B~ THLE EER? 


RRR 
fu D fE HHE ЖЕ, HDWilcoxon-Mann-Whitneyêê, Ф во 1 сох. без 
fr. ЭТИМНИ (ПИ 5 — y AH) ‚ VERB paired-TRUE: 
> Wilcox.test(x, y, paired«TRUE) 
HFPA, e кра1тед 1А MFALSE: 


> wilcox.test(x, y) 


позове на LEE Рой. KERA, piñ J 05, ЖЕ СЛАМЕ МРЉЕ НТ 
EMER, АШРШЖ--0.05, ЖАНА НОШЕНЕ. 


тне 

ГЕНІН ET ак БИЛЕБИ, RIEA ТАЕ ЖОНЕ, го 
ЕКО ЖИЗ) (FAE) , ifiWilcoxon-Mann-Whitney£te teti, МНЕ 
HIRE FE ВСК. HOOP HORE НЕВИЛ: BAK АГА НО РЕНЕА 


(EX reb, ВЕНОК. МЛН — и То k 
BUT Ell: ОЉА НИЈЕ S F QATA BEMI. Вт, Wilcoxon- 
Mann-Whitney 2 El Т —4“ AF109888; EUR Да cf b ЕН ЗЕ 
HU sl, жазат, ПЕПИЈА ДЕ Жы. 
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ie Ripa ЕЕ AL, еар Е 
ЖАН ЕНиР, ата асы ЖИПЕК ЕГЕР РЕЖ 
ЧЕХИ, BECA BERE ТИ. UB EG нінен C 
RA, ECT REL ELE ЕЛЕН fo. 


AFERE, MARLA Hpaired=TRUE: 
> wilcox,test(fav, unfav, pairedeTRUE) 
Wilcoxon signed rank test with continuity correction 


data: fav and unfav 
V = 0, p-value < 2.2e-16 
alternative hypothesis: true location shift is not equal to 0 


РИО. анклав, RIERREN тн БІ. 926 ЕЖ 
Vr, ЖИЛЬ а PR). 


жетер, VE Ripa iredeTRUEAE E OE). ін ЖИ ЕЛИСУ, Bí 
СИСЕЕЕ ЖЕЕ, ЕЙ ИЗЕДІ CER pa гед- РАЗ ЕВИЯ. 
F, зато вери 00.229 8, ifi РЕНИЈЕ. 


ввзя 


BU 15X T Bt A. 


9.17 BAX RR LR ИЕ 


ia 
Me LERRA ERI MERC, RRA EERE EEG CA. 


RHR 


сот Ке ЕДИН BIER Bop ЖЕ KEN. MEERA ESA MNSE, 
MAHR ИВА ЙН, HDPearsonik: 


> cor.test(x, y) 
НЕЕ, ВН 5реаттап  : 
> cor.test(x, y, methode"Spearman") 
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вади £A ME, ЕЕ шй ЖЕРІН. KEMA, р< 0.05 ЖЕН] НЕ RR ВСЕ 
Жо, Hulip2005RW EAE. 


үне 

ERMAN, ЛЕНО ВОО SEE вођа. жак, EARMEN 
жичцали #0. (HEB A TE. НЗ, ЗЕН НИДЕ Ж, 
жиі, ПАРНЯ C. ЖЕ ОВАЈ ВОН НОВИЈЕ Кво PANE, сот. 
test SEA Il i He f] 


ажа xy, ЕГП И ESE. ЖОП РАВНЕ TT AR ЖЕ ХР 
0.83: 


> сок(и, y) 
[2] 0.8352458 


ПОХВАЛИО. m ВЕ сот лез, ЕЛКИ, 0.164 8; 


> cor.test(x, y) 
Pearson's product-moment correlation 


x and y 
1481, df = 2, p-value = 0.1648 
alternative hypothesis: true correlation is not equal to 0 
95 percent confidence interval: 
0.639590 о. 9964437 
sample estimates: 
cor 
0.8352458 


PACKS ЖК ХИУМИКО.05, Е ГТА ЖН Ж Я ВОК К STRE A Шш. ЖН. 
Mr STELLE GO R ñ ІСІН ЖЕ e o HR GR C. Gk CD Th, ЖАК (0.638, 


0.996) . KURE, ГАГ BOUE, LRR БЛ НОСНЕ, DRE, 
шаралар АЕ ТА 

сог, Без ЙН Н сота НИЗ НЕ ВО АР (ЧЕКЕ, БАНА “ЖЕ 
WT жива reor Ж, 


ЖИМИТ, cor.testiWPearsoniiX 2 6i. "RI GEO Е. 
SpearmanikBEfi lix ВЕРОВАО, ЕА АЕА АН. ЧАЧЕ ТЕЗ НИНЕ, UH 
method-"Spearman", 
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зяза 


ЗЕРНА, #225. 


9.18 1$ 0848 865 e B 


aa 
Msc Ae ie AH PERI FAS, БАЗА ЛО ТЕЗЕ ANR: IREK, Memi 
Балалы ааа 


WORSE 


ША ртор.(есі, ВАРВАРИ: 


> ns € ст, 
> nt <- (nt nts 
> prop.test(ns, nt 
мекен, 06 Len siti T НХ, ВОЛИН 
ККА САЛАР ЫЫ). 


as) 
тд 








мани — ерін. REMA, pl] 0.053 HR ГЕН, Мариа 0.054 
Mix Pau. 


не 
кво, ВИПЪНе Т T Okt. ЖИ, запита £ KI 
Ж. MERENI EGEA, 


URGE MOS ФЕ ЕНЕНЕ, МОЛА Ло тайния. RALAR, Ж 
до, Jib U 0 A ERIT A, ЗЕНОН, БН, Вешин. 
БЪГИТА Грат NC CO 


diUlHprop.test. “RH ЖИЗНЕЙ МА, РЕНЕА ВР Рус: HRA 
АЖЕ ЖИН RO d ЕА ОЗА BRE : 


> successes «- c(14,10) 
Se cC HUE BER IAE B 


» trials «- c(38,40) 
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Fitprop. test tH E — рій 20 374 9: 
> prop.test(successes, trials) 
2-sanple test for equality of proportions with continuity correction 
data: successes out of trials 
Xesquared = 0.7872, df = 1, p-value = 0.3749 
alternative hypothesis: two.sided 
95 percent confidence interval: 
-0.1110245 0,3478666 
sample estimates: 


propi prop 2 
0.3684211 0.2500000 


MEO CREAR а вип IET IR. OBE EHE EI PRO PEARCE RO а IL {Е 
же. 


ARS 


Фо. 


9.19 ARIE] ХН 


2127 
ИИА, жените. заден, fre ве НОВ ИУ 
та 


вал 


HO ВОН А e 8 REGIE OFFA TORRE ВАННУ. ЧУН раі тиі зе. 
Е лез АТИ 2. 


> painiise.t.test(x, f) # x contains the data, £ is the grouping factor 


4816.8 рО Е, JMET pI A HUM. (RUE, t p 0.05, 22% 
РНЕ ЖҮНІНЕН, Tip >0.05, ARBER. 


ию 
ЗАНУ IE 1S CREAR 21591500406 T Bi it ЖЕ. ЖИ, ARE 
8, JESHETEGI УВЕО И SEER БЕЖИ ИЕ HE. 
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AiE ERU ӨЗЕННЕН. КБ АН — IRENE T A HIR RR 
Га]. рій ЯНЕ, САН I HET SORRUAUR. Жра?ти зе. тез ЕНИЯЖ 
р.адзиз +В ЗАК ТЕЧ К RIK. MEULEEGTRESEUEGT PUR 51247221 
ааа Но IRE В TCR асыра сала 


TRUE JI URS. зрну, 165.51, RÜEHEXTEBUE, ХОРА 
ОНО — 1 сопы ER НЕН, EREA: — ЖШ Омашев, 2- 
ПРЕДАН ТК ла. RIITA Rl pairwise.t.testAK B (748 > ПОЩИ: 

> pairwise.t.test(conbfvalues, cosb$ind) 

Pairwise comparisons using t tests with pooled SD 
data: comb$values and cosb$ind 
fresh jrs 

jrs 0.0043 - 

Soph 0.0193 0.1621 

P value adjustment sethod: hola 


EE, Љу, KE (jrs) БЖ-- (fresh) МН, ЖЖС (soph) ЭХ 

- (fresh) МУН Т — $ Mp: 2281200.004380.0193. RATEL ЖА 
жин НАУ EE. А, K= (soph) УЖЕ (jrs) ПОНЕ СВ 
Ж) вери, 0.1621, РАДЕ ЕЯ. 


PRHA 


BLES НИ R.S, 


9.20 RS HFF HIT E] 23: 


із 
TERRA RIS, СТО "ER IRI T I Жл? 


МАЛ 


Kolmogorov-Smirnovit ЕЖЕ ЕП ЯВ НЕНИЯ. К 
ks.test XB Tix Юй: 


> ks.test(x, y) 
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ана — "pl, RRRA, piñ j F005, ЖАНА Gy) ЖА ЖЕЙ Ж, 
рій k-T0.05, ЕЖЕ. 


Wit 
Kolmogorov-Smirnovit й КОЧЕ РАНИ. НХ, EE AES ORA, ДЖ 
CEDE БІЗ. СЕН. Kk, ЕН ЖЕНЕ E 
вон. ЖЕНИХ. MRLE, ЖЕНЕ ЗИЯ, РУСИЕ ААН 
эзш Жиз. 
ЧЕ ВАГНЕР Rc Ryo А FAM. ЖИ, ks. лева рій 200.012 97; 

> ks.test(x, y) 

Two-sasple Kolmogorov-Sairnov test 


data: x and y 
D = 0.3333, p-value + 0.01297 
alternative hypothesis: two-sided 


малмбрщ, RITAK: ЯН ЖШАЖЫ A. RT, SRM — A 
PEER, pl 4 (0.8245) , KARATA AE . 
> ks.test(x, z) 
Two-sanple Kolmogorov-Smirnov test 
data: x and z 


D = 0.1333, p-value = 0.8245 
alternative hypothesis: two-sided 
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98108 


EX 





ил 


НДК УК ВЕ. SH GgraphicsJEREsHER К) — 8927, tu SW £f HJ 
НОП Е Жж. FREAK EEK, Ааа ылы. EER 
И” ПЕНИ AK о О К, ПД ЖЕЗ RIERA, 4n 
ЖИМ жак, пийка. 


IE JE — I EMIRE, НЯНЮ. ш ЖЕНЕ НИ, ЖРА 
Мите Е (R Graphics) (Chapman & Hall, 2006) , ЖЖЕНИЕ 
я, HEAR, FUSE £ — Job GROUP това Ка. don 
При ЖШ) Фф A NO, 


ЖИЕНІН Ж. ЕВЕ. ЗАЛ И, 
> plot(x) 


вях-тпамвежя. иные. ки. KE. винхжожевае, (Н 
С Blin: 


> plot(x, main-"Forecast Results", xlab«"Wonth", ylabe"Production", 
+ colec(^red*, "black", "green")) 


ЖАК ЖЖ ЛИКИН, ла жет, ИЕА ЛАТ (ішу 
10.2) ВЕНА 5. 
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EI Сора е аг 

T MIRI TE GR BEER IE аа > RI ВИДЕ А О Нађ IE 
от. matt Я гі СЕГЕ ОПЕЕ). ный, Бе, 
ООСС СТО HT GR. 


plot 
аненак. 


boxplot 
опажен. 
hist 
QE соган. 
qqnorm 
@ж#о-ош, 


curve 
AMERA. 


MARO КИЕСІНЕ. HE, Раев mE: Ai, t, x 
Ж. ЖИВЕ. AFUE: 


points 
LLL 


lines 
HMA. 
abline 
nice. 
segnents 
ње. 
polygon 
Жиля. 


text 
nk. 


EMH ICA PUE DEBET UE ЕН НОРИС кая SE Lata fk. 
МН, GU, HONER, MTR. 
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> abline(a=0, b«1) 
Error in int.abline(a = a, b = b, h = h, v = v, untf = untf, ...): 
plot.new has not been called yet 


ВАМ 

«же, ВИП око S ЖЕ. А ШЕ Л К НЕЙ А. SERRE 
PX. врло 8. НЫЕ. RF. заек. верни. жәнс 
URN, вжрот(о = EFER. 


ERREP, та ЎЇр1о тйк М ЕН. KEME, РАЕВ NEIN, X 
HEH T REMO tE AY аа 


btc Ee BE 

RIE ESTA ТОРИ РУМ ИЛНЕ ЛЕНИН, MEHR, RACE е 
лж НН. И, ЗН зоо FIR, HR ВЛАЕ — 
гоойбяниа, ЗЕНАр1о*(2), WARK ог ов ВОИ, "ol vr] 
IF ЛЕЊИН НЕМИ НЮ ДА 


көнек TAI ЖЕНИЯ. кашата сед fH IUE РК 
BM. ERM Т ЖН И. Ue fs ERE W $o IO 440 & W L A LOO TRUE. 
"ith usd НЕНА. 1 Оеерауап SarkarFR, ТВ АИ Т (Lattice: 
Multivariate Data Visualization with R} (Springer, 2008) —4, ЖЖМ T latticetk 
Ht RC Anf ЕН. fkfFfllatticetltE (R іп а Nutshell) (O'Reilly) ЧИЖ. 


ВВр1 042 НИТ 5 — EEN, ЈЕРИНИН. ЕЈ T 
eM CJ. Тат еккен, i2 E B — A a A HE f tti) IH 
ВИДИ. ggplotzíkftü2iiHadley Wickham И, #57 (ggplot2: Elegant 
Graphics for Data Analysis) (Springer, 2009) —45, i&-54r48 T ggplot2 ЈАН ТОИ 
Anfa pE JH iA PEOR HR. 


10.1 618; 


(ад 
TIE HORTUS. Ски ve уда, уд. ИСАНОВ —- вео Н. 
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МАЛ 


aC TEE Ayh, БАЗЕ Про e и: 
» plot(x, y) 
MRE (WA) ВОЕНЕН, смет Е: 
> plot(dfra) 
ию 
WIR ДЕЛЬНЫЙ НИ AGO EM. m Cx Ry > ИЯ ЕИ Ж. ДЛИН 
ТС ИЕ аі RR Ni: 


> plot(x, y) 
plot ЖЕЕ Ж, HE, tf РИД CE IEEE ПМ. (х,у) МИЛО ГЕЈЕ 


dn ACIEM E — A PURI RING, ПО БЕЕН тв. ЖЕ Тр Lote PE — Mi 
HOCH, СС ОВО СОРТИ I 10-1 CALEB ih N 
Jiplottili ; 























> plot(cars) 
8 5 
8 
° 
° ° 
8 9 E 
° Б. 2 
$s E е 
° оо o 
ý š 
ооо 
* ° °° оо WES 
o9$ooo 
8 С: 2 
• ° 
249 ad 
T T T T T 
5 10 15 20 25 
speed 
810-1. же 
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МЕ сат ва МИ. speedfüdist. 35 -ЯЕзреед, BILLEfEJoxfüitüdistfF/oyfh. 


An Rcg НЕ ба SHP IEMA, БАЊА ИЕ ОПЕН (PUHA 
1007), 


утвакда, ивсдежити. НП ро Е — 1 ФНК, ЭП Set 
ЕВА, ЯБ, HH — ве . Bin, #4 7541016, "Ol ГАР 
^m. 


PASA 


ЗАСТОЈ СС 772102, XT ӨН ШИНЕ НН AKE, BL 
1038770105, ЖРА БУНИ. 8107. 


10.2 ЖАК 


DE] 
И TERRE FESR n Hia 


RHR 
ЭНИЛЇр1о н: 
+ вала. 
° Шиа n вае. 
` UE cylabil In уния. 
> plot(x, mains"The Title", xlabe"X-axis Label", ylabs"Y-axis Label") 





ЗНАЛ, ВИШЕНИ ЕФЖапп-ҒА(5Е. ЖЕЕ ЕИ Е, МИ 
Эа сез ей ЛВ SE bs Rb E, Min: 


> plot(x, annsFALSE) 
> title(nains"The Title", xlab=" Axis Label", ylabe"Y Axis Label") 


ию 
Jj ik 10. Lb OE AE R 8:80). ЕЕ ети овча, ет 
ЖИ НОЕ НЕ BNE. ЭН рт ОНО ЕЛИ, РЕЧЕЙ 1810-2 
Bi. 
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> plot(cars, 
+ , main="cars: Speed уз. Stopping Distance (1920)", 
+ Xlabs"Speed (MPH)", 

+ ylab-'Stopping Distance (67) 





cars: Speed vs. Stopping Distance (1920) 
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8 ue ы 
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8102, 320— РАНО MEE 


ВЕНА TARHAN. Jed. bM ЛЕВИ НЕВА, ИЕН 


тийїї. 


10.3 RIN put 


вм 
НН. 


МАЛ 


° ИНН W #£#type="n". AERIS М BRI Я КЕНЕЛЕ, 


- MUH атіаж а M. 





вю 
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+ МЫ, пролете АЕ IN E (ERAS ЕН. 
> plot(x, y, types^n") 
> grid. 
> points(x, y) 


Wie 
AMplotRA ADAM. RT, HFH, WARKEN. 


LJ ERR; E LR ТОННА ADE. жеміт хі, MRK, ш 
жәнне R Е (7. 


IIHT ОМИ. M K. М8 у реза AHD. Мона e Wr 
ще, ым жиен, (UD (ПАЖ) МІНЕ. 


plot(cars, 
mains"cars: Speed vs. Stopping Distance (1920), 





+ 
+ 





RE, дим, 
> 440 

„Нос, МЕНИ АНЕ TEE HR points KAR BIKAT, АЕ СИНЕ НОЕ ЈЕ ВЯ 10-3 B 5. 
> points(cars) 


du ЖИНИ, важи ER WNE A ВАННА НИЗ. TLL W — PEU 
Wilkplot, АН егі а, ME—fIS BEDAE REM A EEE, то ЖЫМ. di 
мн, EA ENR, ПНЕ. КПА F. 


10.4 212 B f ex 


вм 
Tei yh f РЯ МИ, У FERAT, ERMAN. УЗО 
—^ SIDA AY SI БИ Ey RO 8 . 


RRR 
i Промо pch. CRRA, ВЕРНИ IDE ROAD ARA A: 
> plot(x, y, pcheas.integer(f)) 
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cars: Speed vs. Stopping Distance (1920) 
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£ е 3 
8 е ° 
° ТОШ, 
° 
8 ° 
Р $^ ат ° 
° 2% 
В 2... 
• °° oo o 
" оогооо 
8 s во8 ө 
° ° 
а • 
° T T T T T 
5 10 15 20 25 
Speed (MPH) 
1810-3. RME 


не 
ЕЖЕ НР, EE KAR Ы AHEM И. 
ПОВЕЉА ВВ. Веро 09 e Bep chil RII (x, ул ІН p CI 
ама. 





ЗНС dRirist0 602909 R EPetal.LengthKüPetal.Width. #4 SI tti — ^4 Specieslit 
алалы ал алата тапта ERI GL (EI 10-да НОЈС 
ЕДЕН 


> with(iris, plot(Petal.Length, Petal.Midth)) 


An ARB EJ НЕ RE HIRE AL, ПИР ЛЕНЕ ВЕЗЕ ДВ. Эрве, 
АРУНА Ичо, уу, CANF- 1822 08], Bel Po HH EE ETE p chr НЕ 
ИЖ. ЧА plot. ЖЕНЕ RA E У ЕВО: 


> With(iris, plot(Petal.Length, Petal.idth, pcheas.integer(Species))) 


ЖШ ЛЕВО, ЖЕНИЯ Ен нем. 
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АН Data Points. Distinguished By Species 

















8 £ 8 d 
5: ве | Š ° adis: 
Pc 5 із E 

È # _ 
123245267 12232458867 
Petal Length Petal Length 
a) b) 
10-4: SAMAS 
WSA 
ЖЕЙИН. WEN EI. 
10.5 ЖД 
18] 
ШЕЕ GL: — NEON, Bie Jn] ЈУ НЕ ЊЕ WS IE e з В 
JURE 


Willplot/i, ША евепд, МИЛЕ НИЈЕ). Нови onte 
MAK. DUAE Ans Өн. ЗНАНИЯ: 


АКН 

legend(x, y, labels, pchec(pointtypei, pointtype2, ...)) 
ВЕНУ 

legend(x, y, labels, ltysc(linetypei, linetype2, ...)) 


КОЛ 
legend(x, y, labels, ludec(widthi, width2, ...)) 
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жетті 
legend(x, y, labels, colec(colori, color2, ...)) 


ЗК, ху ҮН ИНЕ чек, траве ЕНИ (EIE DUM E TERTIA.  ФЖрсһ, lty. 
1иф со ЕЕ  labelsiélR, АР ЛЕ ЕВРА КИЛ. RN, H 
Ж, RMEL, ЈАЊ МЕТ ЊЕ ЕН ВЫЕ. 


ий 
I 10-Salio Т ~E, ЖЕ Ji IOAR, Н e UR EA у, Брест 
жи. "ПАН кинти (ФЕЯ рло:> 5): 


> legend(1.5, 2.4, c("setosa","versicolor","virginica"), pch=1:3) 


МУ ВН ТЕН. вв IMEEM, ТЕАИ, АЕ 
ВЕНЕ. Ш лек UB PORRO] S диети, RAI ~ 3, 


WKE, ЕД ЕЈ КОЊЕ T ЕВ. 


> f <- factor(iris$Species) у 
with(iris, (Petal.Length, Petal.Kidth, pcheas.integer(f)) 
qr as«characterlevels(£), Рената) 
ЗАЛИ THO 2 Ab fE T AED PER 4 POR E BE Кво. HIK, РЕНИ 
Жїз. АОН. НА, = ИЛ: Аша ЖИЕН А 
Ж. JK, ПО AR T ЈЕВ Ж, Куан ако ТА БОЉЕ, Ек 
тж хс. 


TE 10-5bÓ EUG ж T HURRY (KER, ERRAR) MRA. Gut RT : 


> legend(o.5, 95, c("tstinate","Lover conf lin", "Upper conf lin"), 

+ lty=c("solid","dashed","dotted")) 
АЛЕНЕ MON T ЭК utk att) PR q. в ерепаі ње. БОЕ 
FARR OEE ON. БАНА ВОН SKET, КЕ СА RAIL, VE 
еюнщ. 


ЖЕНЕ, НИИ НЫЕ, HM евепа а, НХ, LI 
kE ВИНО уде фк, ВЖЕ, TEACH BH PELA I СЗ ҮН Ж, 
RARER SAREE Ех, с, МЕР ВНЕ. 
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1910-5. 8916395 


Жак, Болт! (RIR CIS). МОЖЕТЕ ПИО. PA HERE CITIEM 
вани. ЧЕН РНН ЛЕН Ж Mil АНЕ. 


10.6 fbl Е НН 


вм 
амил, пил — R E E ПН RUE Ж Жз. 


МАЕ 
ФЕН, КИМ (x.y) Ж}, МИН апей ИНН: 


> m c day ~ x) 
> plot(y 7 x) 
> abline(s) 


үне 


Шарл і пе(т) милы, РОМА ЕН. 3X Sp lo t(m) ЖЖ 
Fl. plot ñ ВСЕ st ffl; завета (УЉЕ 15). 


IRR HRK PE GL faraway ff BGB ЈЕ stronpok Е. 
> library(faraway) 


> data(strongx) 
> т <- In(crossx ~ energy, data=strongx) 
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ILLE ROSE ЕЖ, АКИЙ Hablinei теч, ^E 0810-6. 


> plot(crossx ~ energy, data=strongx) 
> abline(m) 














005 оло 045 020 025 030 035 











110-6; ВВОЗ 


ВЖ, HIT AXOECEXRIS. (Hicrossx ~ energy) . REKKENE, 
Tio ibi", ST LR t A PL 0 fr ВИА CR ВИНА ЖАИ, 5 — M БЕЛИ 
plot(strongx$energy, strongx$crossx). CADHLA, Ворон ASN 
Anis f Ae HUE 


жіне 


йл $ КРВНЕ ВИНИЛ ЧЕ. 


10.7 & 3e EB й] 


в 
Е MERAH СВ 





вю | 243 


Е 


ЗЕЕ МОНЕТ EEE, Жеке. Ка Ија ОНЕ Еді. 
> plot(dfra) 
ve 
ЗКО, жалеп зінен Ж ЖЕЛИНИ. ~E EMRI 


ЖЕНЫ. паженам, КЕНО, КАНТ УВО ВА — 
СВ 


ЗИК 115194 Bt de RR окт: 


> head(iris) 

Sepal.Length Sepal.Width Petal.length Petal.idth Species 
1 за 35 14 .2 setosa 
2 4.9 3.0 1.4 0.2 setosa 
3 ал 3.2 13 0.2 setosa 
n 4.6 за 155 0.2 setosa 
5 5-0 3.6 14 0.2 setosa 
в 54 3.9 17 0.4 setosa 


жития, ВАННАЯ] А FF 2, RRR? RME RT EAL, ЕП 
10-792. 


> plot(iris[,1:4]) 


10.8 JERE El + zk E. BU fU El 


вм 
жива (ED) Ват JT. ME B ROLE CIN, 
ЭКЕИ НЭН — РЖ. 


Е 


ЖИЕК RHE (conditioning plot) , а сор1о 7. 
> coplot(y ~ x | f) 


АЯН Ех РУНЫ, ИЙНИ ITF. 
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ES ut F: 
ЖЕМ || ° || Peta. Width 



































810-7: SWAB 


ию 
AKIHEIBUL Я — РОМ FRE HIR s 


ВИЕ КСагѕ9з 27, "CHE T 1993184999 CET. TEAMS E RE 
MPG.city (ЕЖЕН ВЕЛИ URS ИК) Жногверонет ("ЕЕ 
2). ӘЖ EOrigin. РСЕ, ТЕСТОВ ЗЕ (USA) 
ЗЕЕ ЖЕБЕ (non-USA) , 


ВОКАЛИ (MPG) f iX. RITESH: ЭЕ 9 НИЈЕ ЈЕ Rm 
ёге Ж ЖАО КЕ Ж? ПОВНЕ o. T MPGXEEz Е по КА, 
"EAT АННА сор1о ВНЕ. ковани, ОВЧА ЗЕ 
AE. ВЕКЕ. 
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> data(Cars93, package-"MASS") 


> toplot(Horsepower ~ MPG.city | Origin, data-Carso3) 


А Жсор101#9 дата КҰРА ЖЕ f Carso3rh ено Ш. 


110-8187: T зен. папата 34430013 DE, CHE PERS ЈЕ ЈЕ 
KARPE, (in kq вв, АЕ ВК, Пеи ЗА. 





Given : Origin 














2 
8455 
оо 

2175. 

В јео о 
































810-8: RLD 


ЖӘЕП HX ВЕНЫ, (B РГ LORIE EMRL. 


10.9 2128 
йа 


ЕН. 





246 | Жоғ 


вал 


ЯН Багріо. ЕН — TP BUE SUR SOUBIUS НЕ НО e : 
> barplot(c(height,, height, ..., height) 


ий 

агро Жї) ЖШН. "BUE ЖЕЕ S HE ГОД Ote feli E К, A 
ІШ, казвал. ЖИ BREL ЕНИ Бе е ен, paman 
Ема ЗР ЗАО ЖШН, Я, Beli fKairqualityf 4 — 1-Й Temp 
FüMonthl, ILL p ik HR Ар орк ЗЕН) ЕН, МЕ, ИН. 


> heights <- tapply(airqualitySTemp, airquality$Month, mean) 
ПЕН ТАИ ЊЕ, РЕЖ ОЕ, 
> barplot(heights) 


ЖЕМЕЙ 10-аб, ERAN, AREER, ползва i m АЕА. 
Rott. ЖЫШ. ЖАЙ. умове: 


э Барона, 
mains "Mean Temp. by Month", 

+ mames,argece("May", "Jun", Сайт, "Aug", "Sep"), 

+ ylaba"Tenp (deg. F)") 


It 10-9b5h ER Т ВОН. 





Mean Temp. by Month 


5 6 7 во 


May Jun Jul Aug Sep 
а b) 


20 40 6 в 
20 40 6 в 


Temp (deg. F) 











10-9. 28569553589 
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E ESI 


ЗЕРНАХ, WE E010, ХЕ ШЕВА, 14% 77151011, 
ак ла сети 6 Жватспате. 


10.10 Xt ATE ES hn Ж {2 P< [8] 


am 
REIKTE R hM BEA 


NORTE 
ПОВЕДЕ АМОНА В RE, ВАВА, JEH Помет орет. CI EC IRL 
KIRMAK, КО врдотв НИ tbarplot2sT0 B roe E I К ЕЛ И (ДЕ 


> Mibrary(gplots) 
> barplot2(x, plot.cisTRUE, ci.lelower, ci.usupper) 


vie 

ЗОН ЛИ, CERREN., (НЕ ГИЙ НОЛЕ GC, EREN 
ВЕНА ЫН. ААВ ЖИМ, MAAE IA ER HERKEN 
La 


PANE, miltbarplotzsTLAA MH 6 RAK НИ. ERE RII IDA AE HERIN, 
зло оф, ERMEZ. ЕР нищо, ЯН HX ЗВ) 
MERCI, ict tes t —Л Bl P|. IRA — АЕ соп ап ЈЕ, 
"EAE LOREMS ПОЕНИ ЖЧП ШЇЇ EXHI TE УНИ: 


> attach(airquality) 
> heights <- tapply(Temp, Month, mean) 

у nr c- torpe, fent, fecta) ление, ánt[1]) 
> upper <- tapply(Tesp, Month, function(v) t.test(v)$conf-int[2]) 


"TELE XX А 75 АЕ Иа А E (CC ВИ ЕАН ЕВ 
> barplot2(heights, plot.ci«TRUE, ci.lelower, ci.u-upper) 


алал ата но, кани голите. ERU E 
(lim) , ЮНАЯ (xpd) , UR I BE (main) , ВАЖИЛИ 
Ж (names.arg) , yt ERE, ЖИЗНИ ЗО. 0810-10920 A hH 
Багров": 
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> варака (heights, plot.ci-TRIE, ci.l-lower, ci.veupper, 
+ ylim-c(50,90), xpd=FALSE, 

+ wain- Mean Тер. By 

N names. argec "Ray", "Jun", "Jul", "Aug", Sep"), 
+ уы Temp (deg. РУ”) 





Mean Temp. By Month 


8 
j E | 
8 

May Jun м Аю Sep 


810-10: панах авиа 


же 


XT врло ӘРІ, MELIK, З ФР аррлућ E, WER 
65, Железния, WELDERS, 


10.11 &#J El E S 


в 
ж» hi көже EME. 


RRR 


{ER BUB barplotíf) сої: 


Temp (deg. F) 
т 
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> barplot(heights, colecolors) 
ЗАН, ##heightsÉ UPPER, 0 Btcolorsi CHENA Ж. 


EREK, ЖЖЖИ Bg r a yE Hoc ЗЕНА TH Rr а i n bo ме ВЕТ 
ES 


не 
ОШ а ПЕЛЕ ДЕН НЕР). MAORI REAA. ДИРЕН — 4 
di = ARERR, JEELO BIET KERNEL. A. Е-е. 


> barplot(c(3,5,4), colec("red*, "white", "blue")) 


Ат, Ера. ива, EROR GEIL (63s — BEX T UU 
РАНОГ С ООСС НАН каб. ТОРЕ DOLOS. ВЕК ЖЕНАМ 
MATER, EXT ATH, Жі атау 4C EMME. ii grayf) 206—7 
EO~ ZBE, LER OR AE I RECO GL же, “Жоо (тв) ~ 
10 (f&&&) . 


ТЕО ЕЙ, КЕНЕ АНЫНА УНАН, HMO 12 
don. 


> rel.hts <- rank(heights) / length(heights) 


OG E üM HIS HE, ФЕНА НАА Je лава R. На RED BUE I Gi dE 
REN: 





> grays «= gray(a - rel.hts) 
Ра аза Љ Ју брк T DIES Ж ЖЕ. 

> barplot(heights, colegrays) 
ті, И НЕ BEN. СРЕО Rs 4 Ж AIR L0-10 


> rel.hts <- (heights - min(heights)) / (max(heights) - min(heights)) 
» grays «- gray(1 - rel.hts) 


+ "grays, 
+ ylin=c(s0,90), xpd«FALSE, 

+ main- "Mean Temp. Ву Month", 

+ nanes.arg"c( "Ray", "Jun", "Jul", "Aug", "Sep"), 
+ ylab-"Tenp (deg. РУ?) 
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Mean Temp. By Month 


8 


8 | 
Мау Jun Jui Aug Sep 


Temp (deg. F) 
70 


во 








810-11; АЯЗ 





жили, АБ — e CASI E BEB. ОНЛ ОЖ, RIEU 
И ай та трон, "970/0 ЛЯВ, STELUNTH Ce PCM V fug тау te ЖЕЛІ 
шиш 


звзя 


X TONER, М8 09. 


10.12 ARIE ях хжунј zx 
ад 


УЗЕО МИЙ. (x, ус, Va), (a. YD. SERERE Ж ЖЕР ЖЕ HGA МАДИ ун, 





Е 


Н р1ое, EMRI" (FE “1”, ЗЕВС 





> plot(x, y, type="1") 





вю | 251 





MRE ЊИВА НЕ Н ЯЕ, ГОД ВЕНЕ A RE: 
> plot(dfrm, type-*1*) 
пе 
ТОН GU ME ICE О.Н T ABL ——4 АНЕ. ЕДІН 


SRE EME T ERA AUG EREN, Варто ЯО RM. itype 
KERMA EER, куме каки. 


НИЕ НОВО ARA EMRE Жртеззите: HHN ЕНЕН, 10-128 ЛОН 
в, вефк. 























> plot(pressure) 
1810-1246 —^-£R IB, "Els II ПАС РЕ OU (1) жа: 
> plot(pressure, types"1") 
Scatter Plot Line Plot 
8 w 8 
8 ° 8 
|. „| је 
8 a 8 
o 
е 000090000099 e 
т TTE 
0 50 150 20 350 0 50 150 250 350 
temperature temperature. 
a) b) 
810-12: валю Н 
RASA 
$17ik101, 
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10.13 325069. ЖЕЕ 


ад 
дека ка, Жасоо, жижине. 


ЕУ 
йїр1о+ (ДАЖЕ) ЗГ ЕАО К. WASK tykt 
жи: 
° lty="solid"R#Ity=1 (ЖА) 
° Mys"dashed" уе 
° ltys"dotted" и Иу-з 
° lty="dotdash"R#lty=4 
°  lty="longdash"R#lty=5 
°  lty="twodash"R#lty=6 
+ lty-"blank"R#lty-o (ПИ) 
Чт, Врло Е Жн. 
> plot(x, y, types"l*, 1ty="dashed") 
VW e clu Re ER AC He o A MH QW. RAREN: 
> plot(x, y, type="1", Лива) # Draw а thicker Line 
WU BccoDE Fr MARII, меен. HARARE: 
> plot(x, y, type-"l*, өтей) # Draw а red line 
не 
тау 
ЖЕ. АВАРА ОЙО, KEREC. амазжицигнанчия, ЕЛІ 


С ос (S — HR, РАЛА лес MERN., Т ines ІНІН 
REPERE EAD TH. ЖЕНИЯ: 
> plot(x, y.denocr, type-"l*, cole"blue") 


> lines(x, y.republ, cole"red") 
> Цлез(к, y-indeps, col="yellow") 
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жв, ЖИМ рот ТВИТ НИЛ ЖЕН. ЈЕ HERD ER ine sini НІН 
жз, в жив, МЕКЕ. 


3AA 


W £ X TE WK НЕ ЖИИ. 14% 77151012. 


10.14 виж ^ Hirt $E 


гад 
жк BE NUS MUR 


МАЛ 
fE Hd РН И, tnplotRtcurve ж ЧЕМ. 
üpointsJAcifi Jn bM e s 


MENEN, IDEO VCI ISO Ks. КЕЈН 2х1 зяпу] 4т, MEKANE 
ЛТД GUI — 4 e et. ТРОА 
range ЖИЕНИ, ИЕ ЕИ и Lick И ЕП, BET MIR. хат 
yt, хоук 


МАЈА ТАКВЕ ЕМ, тез 





> кїїп <- range(c(x1,x2)) 
> ylim <- range(c(y1,y2)) 

> plot(x1, yi, Фуре-"17, xlinexlim, ylim=ylim) 
> lines(x2, уз, lty="dashed") 


не 
EMER “МЛ” НЫ, Варо ЕВЕ 1, MEAR ine sink. 
аа СТАЕ ЈН ЕНЕ ТА АНИ ОА нео (REFIT (ха, y1) Жн! 
(х2, уд) жи) + 

> plot(x1, yi, type="1") 

> lines(x2, y2, ltys"dashed") 
ЖМ 10-138. УВО ЕНА, АВ ВЕНА i T 
ACRIOR Ie ЛЖ. 


To] BEC F E HR ВЕНЕ ЕЙ ЕВЕ БЕ ЖЛ. ВАНН Chii Lines 
#) AREN, ГЕН, ЛЕ БАН, ЖЕНЕ T. 
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Wrong 


20 





00 
L 





-10 
үйе 








а) b) 








810-13: IEWAOHIFR OS S ЖЕНЕ 


MU ЖИ ETE WO НХЛ. dip Lo t W Ike ДЕ KDI de — 
хил — ЖИЛ TERE, CAH T xh FRR ЕЛІ, iiy lieti T yit) ЕП 
ER. 


> plot(x, y, xlinec(1ower, upper), ylimec(Iower upper), ...) 


ЗАЗ Krangel НЕН, 53 81 — Е Еге, ПАПЕ рој 
М, Жауп, ШЕР. 

> xlim <- range(c(x1,x2)) 

> ylin <- тапфе(с(уз,уз)) 


> plot(x1, yi, types"l*, xlinexlim, ylimeylia) 
> lines(x2, y2, 1tys"dashed") 


IH10- 13b РАНЕ. ЭНЕН ЖК T, WIMMER, 


“ӘНЕ” НОА АЗЕ РАНЕНЫЙ, 14 Gb JUR HIST 
HR. 


RASA 


ERER “ИЛ” РАНА ECO ВОЛЕЮ. 
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10.15 RIME ЖК R 








в 
жийи иа ЖЕНЫ, ЗЕНА в. 
BRIR 
ЧНП ФИШ, Шапе p шн А ЖЕ. 
Line(vex) # Draw а vertical line at x 
> abline(hey) # Draw a horizontal line at y 
Wt 
ваъ line S E EA, f UT o fe PAJE MALIS, 
> abline(v=0) # Vertical line at x + 0 
> abline(h«0) # Horizontal line at y = 0 


Жар пей mM ГЫ, "ЕЖЕЛИ, верни 
НОЕ, Inplot(...). АВА На зле. 


ФУН ТОДД ТЕ, (ЕКЕНИН Е, ав11пе из KRE RAS лил 
Ж. AAEE HMR. ПБ Ж»атр. OE. АИ 
ж, Илам-женъпкишожн, 


лов 






anp) 
> m c- mean(sanp) 
> abline(hen) 


REKAREKA, AAR EIEEE EI + RAE 
южыш. 


> stdevs <- m с(-2, 
> abline(hsstdevs, 1ty: 








,*2)*sd(samp) 
'dotted") 





HORAE 10-14 B 8. 


E Ed) 


ЗЕРОВ ИИИ АС, WERL 1013. 
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00 























810-14. Бенина 


10.16 ӨҢ £x Fl 


в 
мкин. 


жалж 


Wiboxplot(x), хи. 


We 

пана BCE HIE T HOUR ЕЗ вие ав. 1410-1558 T АИА 

в: 

титан, 

to РЕБЯТА -MMEA EEQ, TREQ. 

to JSU EJ FJ “RR йл: ТИЕЙИН, KUEKEN (outlier) . 

° НИТ ЖЕНИ. CRUS TF, ЖЕНИ ХИРО ME 5 x ТОКОМ 
f. (Пок, 003-01) . 0ЧИ, = CEU, 


BE | 257 











оо 
































810-15, Аня 


mW R] 


MREMEN, EARN H L7 0:10.17. 


10.17 HETA FIK FENER El 


T2] RÀ 
Noii &—1-Ж dE а AAF (PRED) . (ОНЕ £ HURA T ЖЕН 
ЕУ гаа АН. 


МАЛ 


ARI ЖАИЗ Ëkboxplot ; 

> boxplot(x ~ +) 
зан, хәне, FEAT. 
ІЗГІ рос ОЕ, ЕИ BRUT: 


> plot(f, x) 
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Wt 
АЛЛЕЯ — Betul НИ ін AERE ET PE. ФӘН, ЖАГИЯ НЕ 
ЖЛЕ ЖЕ GUELF KF fe (Gu 


ШЕ Ж0бсегел в iE A А ВЕЖЕ ИЗЛЕ Ж. Кр лии евра, 9 — 
TERRE (MOI ЕК). БЕ ТС Т ЖЧ W RD, dee rm 
MERA MEDR, RFL: EE ТЕЗЕ HVE? ILE 
HET HOE УСЕВА СИ 


> data(UScereal, раскаре="МА55") 
> bosplot(sugars = shelf, data-USceresl) 


жиі, ИНЕ, BIOL I ef. 


> data(UScereal, packages"WASS"). 

> boxplot(sugars ~ shelf, data-UScereal, 

+ main-"Sugar Content by Shelf", 

+ Xlabs"Shelf*, ylabs"Sugar (grams рег portion)") 
ARIE 10-160. eB datalE ГТА СИЕ Неџосетеа1 б ИА y Ж. EFRIN 
HRE, EMRE, MERAH T lab (ва) fnylab (узи). 


VALERIE AU t РОЖЕ NER) A, GR ден Pk Hg c JL Wi Ie foc 
ЗЕНОН РЕВ С RH РА een 


E EIS 

XC Ol УА РНИИ E. 14. 771510.16. 
10.18 ЕЗІ 

аа 

Ww Ob tian) И J; m. 

LES 

ЛИН ва іе (х), Хех ива. 

ию 


(10-174 Т ЖӘН ЖСагз9з'"#ЗМРС. cityPl г 2708, "f ОНЕ REMIT: 
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15 


| 





Sugar (grams per portion) 
10 

















1910-16; ARIES --KCEDS ROM EB. 


> data(Cars93, раскафе-"на55") 
> hist(Cars93$900G.city) 


feifilithisteh, ЖЕЖ T ht aq бИ S DM (ИМА). (КАЧИ, 
о ТТА ЖОЛА. НРБ Жо, BCT DO M Us UE 
ПАЉЕНА. BiU Ehistib (15: T 35 — 4 ПЖ, 


> hist(Cars93$MPG.city, 20) 
ЖЕН FUE гай, Hhist ARE AEN жи учени Rr SM 


O- 09 LS Ros Т ЖЕ АЙ) SEHD, ÉE НУ, В 
АЖЕП ЛЕХ ес г. EP ORE ЊЕ: 


> hist(Cars93$MPG.city, 20, mains"City MPG (1993)", xlab-"MPG") 


яязя 


ЖЕ lattice HiBthistogramiEhistif] 9 — ВАХ. 
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Histogram of Cars93SMPG.city City MPG (1993) 









































e & 
» E. 
= 
i š 
е > 
° -————— °- ———— 
cpm аа 
 Cars93$MPG.city MPG 
a) b) 
8810-17. 858 
10.19 АУЕ 
iB 
BETHEA TEMAH, idi BE In tU VL BH RE URL E . 
назж 
ПИРА density KELL HEK BEE, RIE MHI Lines йй HX ЛЕЕ. 
> hist(x, probeT) # Histogram of x, using a 2 probability scale 
> lines(density(x)) # Graph the approximate density 
өне 


шырыл алата ааа тт Као. ТТТТПЕРЕТІІ ЕЕ 

ЗВЕРЯ. 

ETAT шул ЕДА Ж, ЖЫ ЭУЕ EE, Ж шін 10-18 82. 
> samp <- rgamma(500, 2, 2) 


> hist(sam, 20, probeT) 
> lines(density(samp)) 
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ТОХИО, НЕЋУ ЕФ EM S Sprob-T. В Мргов-твовр REI 10-18) 
УНИН ВЕЕ ИТН. Же. ш һ15+% НИ ЕНИ, КЖ И депо зу HTH 
=. 


жіне 
НЕВЕ А ОЕ MOS GEO TEE RIDER. ЖЫН EXC IE RO A. 362. 00077 
i8. ARM E HR 





























Histogram of samp 
8 
3 г T T EET 1 
o E 2 3 4 
samo 

810-18; невоље 
10.20 НЕШЕСІ 
мм 
SE Oe o a r h E. 
мъж 


ЗН НИ карте ЖЕНИ. АКИЯ 8 £ И уре="ћ"Ибр1 она военен: 
fS —^- BO: 
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> plot(table(x), type="h") 
KH, хе ЛЖИ. 
We 
падина this tole НЕ — 1-3 T BE RICH ноу, (E HR cR 5 OCC AE ЕК 
иа. ЖИ HERO М. 
10-19 7: T WAIE Есін CHE 09 22 : 


> plot(table(x), types"h", lwd-5, ylab="Freq") 


1 
cds "yo AM 11/12 13 14 





150 


Freq 
100 


50 














810-19. ЖЕНА 
вид HR X TAERE, SEMER B EMS. 


КЖ НРК ун. вханк, РАСТУ ГЕРЕ: СТ IC Н Ж. 
ОЖ, da FB. 


> plot(table(x)/length(x), type="h", leds, ylabs"req*) 


Бы 


КРАЕВА, 1Й@07у&1018. HAARR А р1о В. 
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10.21 ВЕТ ZSQ-QEH 


[E] 
вяшанитоот. Яо ЕНЕН. 


МАЛ 


ЗИЛ аапот ОНЕ О-ОВН, UG Над Linen — Re f 


> чапоти) 
> qqline(x) 


E, xt RAM. 


не 
ЖМ. пики вон. M-E ОТЕ SEL — AR 
DD 
ИЩИКСатзоза S — "Price (ВР) Я]. "ЕЛЕ? U| FELT ФЕР Гісе 
маво-от, Чан 10-20ај я. 

> data(Carso3, раскаре-"МА557) 


> qqnorm(Cars93$Price, main«"Q-Q Plot: Price") 
> Qqline(Cars93$pric 











Q-Q Plot: Price Q-Q Plot: log(Price) 











8 5 з 
38 o НЕ 
Ве 47 
8 е 
|: |; 
8 БЫ 
eg т ST 
242... ало E 
Theoretical Quanties Theoretical Quanto 
а) b) 
810-20. 008 
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JAHR — e SEXE E НОЋ. ВАНИЕ Е. 10-20, ҰР 
заннпила, JOE GEB IIBER, ВБИ ЯНИЕ Т. kE ATE 
АЕ Е, АКНЕ. 
ПЕНЫ ЕВ SER BIER ALIE, ЯГОДА MLog(Price), EHE IB 10-2005; ff 
вю. 

> data(Cars93, packages"MASS") 

> qqnorn(log(Carss3$Price), main-"Q-Q Plot: log(Price)") 

> qqline(log(Cars93$Price)) 


VER, ситен», БЕТ ЕЕ ИИН, ХАБ 
ЖӘНЕ. ik ЕЗ Log (Price) ИНДЕ КВ. 


PRSA 
ХИ A fiQ-QIB(DATE, iW 0.07010 22, ЖРНЛИЕЖО-ОЖИМЕЕРИН 
Ми, WERE 5, 


10.22 {О-о 


а 
ЖЕНЕ ВАО. ОН. 


HERR 

ERT, BIRNE ЭЕ О ве, ИШЕ ЖЕШ тежащ, 
° WURBHicppoints/ то EO ВИЕЙ. 

to НОРМ, НЕРОН. 

to нижи. 
тА вв жаоке. 

- итакоъцевиияа. 


ЕЯ L EB ТЕККЕН SIR. FREI AT. CRB А ASI 
EMM. MELEE вида (HC И HEMET EKE û hE: 


> plot(qt(ppoints(y), 5), sort(y)) 
> abline(as0, b«1) 
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не 
ЖЛ ШОРУН Ж, кажи. RRR RATHER: 


> plot(guontiLeFunction(ppoints(y), ...), sort(y)) 
> abline(a=0, Без) 


Wh, quantileFunctionik(BUE ЖИ, П"... "ТИН quanti leFunction 
ТНУ. Нате жн М-Ж. сели. KAUM 
НЕНИЯ Е. 


EA FORE BDICULUBX ЈЕ. ЖЕНИ 10 (Жо) (ЕЕ РР: 





> RATE есіле 
> y < rexp(N, ratestáTE) 


НЕНИЯ ty te ñ ВСЕ дехр, ЕН rate. ОЛД F tk ОЖО-ОВ: 


> plot(qexp(ppoints(y), ratesRATE), sort(y)) 
> abline(a=0, 8-4) 


КЕЛИ а isk it Tik, BELLA: — 1 b UR Ж k DU ERE. ДЕ 
ДЕФ 10-2100 Сб 
$ plot(gexp(ppoints(y), ratesRATE), sort(y), 
maine'Q-Q Plot", xlabs"Theoretical Quantiles", ylabe"Sample Quantiles") 
5 abline(aro, Ба) 


LRA Q-Q PE E A AE F LA A ЖА flr ER ® x AE (Pf MOI o ВОВЕ 4% ETC. E АОИ E I 48. 
oi. 


10.23 ИЕ 5 


12] 88i 
ERE ARR CLA MAR, шканже к жд. ERREKA. 


RHR 


ЧЕН А plotiM, БЕН со] 
> plot(x, colecolors) 


соли "ИЖ. 
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81021; вазбтвоов 
` BHO. {аю к. PORE. 
` MEGAR, SAKE, {ЕКЕНИН ГЕ, хі ЧИГ ®. 
` Aik, GEEHRTE, MEREM. 
НЕ 
An Ran РУЦИ, MWA НОРИ Е УФ: 
> plot(x) 
ILU НЕНУЕ, MFA. 


> plot(x, col="blue") 
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жп, LETE AE ант A E ЗРЕО УУ — РЕЖ 
жи, — ЈАЈА А РАНЕ, if — ЈА АИ МУР. BMRplotA ЊЕНУ ЈЕ 
НІН, 140 10-22а ИК. 


> plot(x, types"h*, lud«3) 

















° ° 
* $ 
لم‎ — 
O æ 40 60 в 10 O 20 40 60 s 10 
век inex 
a) b) 








810-22, ЗЛО 
(ЕЖ, ЖИВИ Кро ЕСІнд-з. EHX TAR, ЕП. ) 


ЖЕН 10-225, "EJEHUBXITOTES OR colors 
"black", ЖЕНЕ соот ВА е ix. 





I MI) Ж НИ № "g v a y" k 
> colors <- ifelse(x >= 0, "black", "gray*) 
> plot(x, types'h', lude3, colecolors) 

But, ЕЛІ МН, XER colors MEZEKE" gray". 


алата талан Д М Р ВИО, ЭНЕН Ев. TAA ib 
НЕРЖ Dm, ЖЗ ЧАИ E со1от5 з ЖЕ 








> colors <- ifelse(x >= 0, "green 
ЖАНА, MADEG. 


BERME, AAR, ЉЕТА T. И рота I — AR YEAR, C 
елее ін Ws 


> plot(x, type="1", colec("blue", "green*)) 


fu e tn A. Ж — EHE blue" HFHHRE, BHAG "green" EA Г. 
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ASA 


ВИЗА РИКИ И. Sircolors()f -Я ДЕ, HWA AK 
segments SH за WIERE. 


10.24 АН 


IE] 
атта 


МАЛ 
ЧЕКЕ НИЖЕ SC TIR IO Е, curve ST CLA MR s 


> curve(sin, -3, өз) # Graph the sine function from -3 to +3 








Std. Normal Density Dampened Sine Wave 











дот (x) 
00 01 02 оз 
100 
-05 00 05 
1 Р 








810-23. иам 
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ifilitcurvelli/Hi&ldnorm, FIRE STEM {Е-3.5— 3.52 [И], МИАВ ЋЕ. Е 
ЖҒНЕ КИ BEAR IE E НАМ FE, EHE 7  Bmai а ЖІ ЕН. 


сигуе L2 EE fs 2 — Љ 1 BOT EG — ЕЕ. TEL 10-23 b 446-і 
TREO ERR пазара) 


> f <- function(x) exp(-abs(x)) * sin(2*pi*x) 
> curve(f, -5, +5, mains"Dampened Sine Маме") 


RASA 


X: F Anf Хх ТА, БҰ 36212. 


10.25 НЕЕ 


T2] RR 
КО ЕТО НИ, ІНЕ ЖНЖ Т ЖМУ. ЗЕРЕН, 
SAPERTI LAZE IEA EW РЕЗЕ WEIT. 


МАЛ 

fi — ЉЕЉазкиу е ЛОРА ИЗА И. ЖЕЕ И Утвие, RATE IENE, 
» par(askeTRUE) 

РАНЕ fE BE LW PF 3 EA, FILLER E FALSE: 
> par(ask=FALSE) 

We 

Макі твое, REEFF REEMA ЕНИ F (LL + 
Waiting to confirm page change... 


э жЕ МЕЕ, жып. RAFAT EW. 


i555 
kuk BEBE T ИЕ ЖЕН О7О 264 E T НЕМ ЛВ 
dr. ЕТӘ ЕЕЕ. WETJ1029. 





270 | Жож 





10.26 — 9mm & + 


[E] 
ЖЗНЕ понижение. 


EHRAR 
их, EREN ГО МЕТМАН ЕРЕ. 3X 1: Ж STEUR ЕЕ Ат f r owh c 
ха. НИЕ CJ CRM. CAH T НИЛА : 

> par(mfrows(c(N,M)) 8 Divide the graphics window into N x M matrix 


Wk. НЫ МИ Тр Lo жар ос. (Un, EA x, T 
ПАРЕ Е o 


не 
ARATRI ад $ IRE Be ERAR ен Ж. НА, (E 2 хор 
ашаа. 
> par(sfrowec(1,2)) 
JG, ЈУРИ ТИМОК 80 ея 


> Quantile <- seq(froseo, to«i, length.out=30) 

> plot(Quəntile, dbeta(Quantile, 2, 4), types"l*, maine"First") 

> plot(Quantile, dbeta(Quantile, 4, 2), types"l", main«"Second") 

> plot(Quantile, dbeta(Quantile, 1, 1), types"l", maineThird*) 

> plot(Quantile, dbeta(Quantile, 0.5, 0.5), type="1", main-"Fourth") 


ааа 1024 ок. ВЕРА ТИ ТЕ ОНИ (И, main-"First") , заем 
ЖА PEUT (9, ИЯ БЕ. ВН. ОСИ. 





ЗИ ут гоно ЗЕ УЕА Не, ВЕНА п. {ЕЙ Л РЖИ, RA: 
MOOR M Fs ИРЕН. АГЕР СЕ. IEM STEURJTI кей f col 
МН, ИГО ЯНИЕ Г. "CITIES петом, IERE AIEEE. 
М рае в по хзазявини: 


> par(efcolec(3,3)) # nfcol, not mfrow 


iil: феал ОЈ АЕ УК сей ЖКА жени, 
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 doeta(Quantie, 2, 4) 
5 10 15 20 
 doeta(Quanti, 4, 2) 

00 05 10 15 20 

оу 


























анале, 1, 1) 
8 08 10 12 14 
omen ы 
 doeta(Quantie, 05,05) 
06 08 10 12 14 18 
а а а: 














1810-24; Леана 
ЖӘМИ у ИНАЯ], АЛИЯ, заета, 


nf rownfcolikfr Oli — ИМЕ. FEAR, ЖЕЛІ 
layout НИ fitsplit.screen. 


я язя 


уавитят-темагавюжият. BARREN REM BIRH 
ЗЛИ П, RES :1027. Р раге, WIL 
1029, 


ХЕ рта сео S ВОНИ 8 £ ИО ТА. 





272 | #10 


10.27 #38 — BUE EI H 


2127 
взет — E BUEBETL, НИНЕ. 


EHRAR 


ЦЯЛА win. ртарһ1ТЭЕЖ® =P И: 
> win.graph() 

ра! нн Et ПР. BOR В RTE, 

не 

Алан лла а РОТОР И ТЕА RIL 

СТАО анион. 


Fitkwin.graph i ЛИН п. OREL аи п, Ek B A f 
юн, КНБ НЫ ПЕ ЙА, TD MU 


же, ПЕН N, URSI HOO EIE ауыш ER E. Чем. зе ЧЕМ 
па, бй п ҖАЕ), i F— ra (echar) ОЗИ C1: 


» dev.set() 
windows 
2 
деу. setig ВАПА ЖЫ ПН. 


«КІМ. вазе ава. fS TE Hin. graphiz ЖЕЙУ ИЕН t @ c 
жіне АКО I. REKAR TETRA (1.618), (Яш, EIE OUT 
MEER AT, 


> win.graph(width=7.0, heightes.5) 


HG. EE, win.graphié Л ВОР ЖЕНЕ. ОЕ РНР ЗР, AEN 
ЖР сва (тамен) HUR. dn Us UE REICH: AHE 


#2: ЮА, A35387055F243 ЕНИ. f fiidthfeheightioHHEH A, шшш 
Ж. (АЖ) ЕЩЕ. IER HRS HODIE АТА УК 
завеси. унт жж. 
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BK, БИНЕ ИМ, (Н КИЗ КЕБИҢЕ. ВИЗЕ Xwin.graph 
MAE. 


ASA 


$11026 T (E—1- B ПОВЕО. 


10.28 хване 


в 
fi wie НОЕ АЕ ЛЗ, РМО. ЗРЕСЖРоибспрой в. 


вал 


ERK ОВЕН, МАЈАМИ И ditsavePlot; 
> SavePlot(flenase-"fenase. ext", type-"type") 
Ворон. Devices RMIT, ERLA b RS AS p|, 


» help(Devices) 





ABA) - 6 fe VE" png" AE i." jpeg" 900 буре, HET FE Uf JC RR TI 


не 
{Windows ME rh, ВОДА ИНЕП, PUR МУ" 
(File) — “BEA” (Save as...) . СДЕЛАЕМ, HERRA A CHE RC 
ж. 


ЖАВ SOS ХАН ЖЕНИ. 


зе, ихежелчмютеаж (БРЕМЕН). РЕШЕ 
savePlot Zii, АМАН (BRI). 


RD REMEE ГТА. 


` М-РН IHE ХИ. Яров... jpeg...) 
- ШОН ВОЖУ. 
° та де о НОЖ. 
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ЗЕ FR CU F FECI SP ЕВОРА. РЕКЕ Иве1р(реу1се$) ИН 
В, ЖЕНЕ LOTHARA. — МОЕ рт, "EGRE — I PNGXft. È 
[ILLU Е: 

> Png("filenase.ext", widthsw, height-h) 


ЗА, ДЕМИН АЕ, ДЕ НЕ НЕ, EID KA. WAN, ij E 
Sr FH JE ODE UE X (етуРгог png: 


> png("myPlot.png", width=648, height-432) # Or whatever dimensions work for you 
> plot(x, y, mains"Scatterplot of X, Y") 
Led 
ES EIS 
ЭСТЕ ЕЛЕЙ, WEWJE . 
10.29 PL SERIE S št 
ед 
MRR НЕКЕЙ) DEAE, їшї. ите, ВЕЋ, 
NURSE 


ШТ рат, СІНЕН A KIC НИ. Hán, DL рат ШУ СЕНА АСА 
15/2; 


> өзіміз) 


не 

аа АЕ 
EK? ШЕШН ER? ВЕЗДЕ Н Н Ф ВЕГО КЕНО. УН 
BRUM, ЯШ, RIA RO PEL UHRA AIRE TEEN, 


Ат, НРО AYR, MEREEN. рат ЕНЕ. Rh JL 
ИАН ENG, i PE UO РЈУ НРС KE par ва вана дн НВО ЖЕ ЙЕ, 


ТАЧНИ, Ји ратни FRR SK: 


> par("1ty") # what is the default line type? 
[3] "solid" 
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> par("bg") # What is the default background color? 
[1] "transparent" 


ЮТИИ Н, fef EET A Н рат. 210-1414 T —#% Я 
щ. 


3k10-1. Ера #8 





за "m я; 
ask-logical #nO9TRUE, {Е UR E par(askeTRUE) 
Ptr (0781025) 
bg»"color" тке par (bg»"lightyellow") 
cexenumber ЗИ AUS, Жж раг(сех-1.5) 
ЕКНІН 
col-"color" wuema par(col="blue") 
fg="color" ике par(fge"gray") 
lty="linetype" ат, XA. виз par(1tys"dotted") 
1wd=nunber AR: 1: EW, 2: №, 3: ИЖ раг(1м-2) 


mfcolec(nr,nc) RA Ў ФН ИВРЕ, nrf, пей — par(mfrow=c(2,2)) 
mfrowsc(nr,nc) (Эў ало 26) 


пен=1од1са1 ESKI EROS SKI par (news TRUE) 

pch=pointtype ЖААЛ (BUifpointsif) | par(pche21) 
LL 

xlog-logical жиа haut: par (xlog-TRUE) 

ylog-logical МУЗ кке par(ylogeTRUE) 





ATi, рат — es 





Wa, салаша ти ЛЕНЕ, ас ИТО, кто. № 
ЧЕЙ aka Bf k EL жей, Ж. MRAR Ek A ENA CUIRE 








зло ab iii tl. ж. ТЕН IE нат, іліп. ДВЕ 
Bit Eh ati РВА (W) : PETER. HRM. св? TETA, Ж 
PUS STREGE H IG ROB ti E EN 

PRSA 


рат О ВЕ ДЯНТУНВВФИ, (кїп a Nutshell) PAFAS 
THERA. (В Graphics) 44 ТЕРМ. 
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ӛз 


ӘНІНЕ € 4T 





ил 


EREN, шапката. UT HIC T РАТЕ Ж. БВ 
инат. 


LAM ACIE SEHE RC ASI У. EMER, ЕН ЛЕНИН 
ши. 


э» = Bo Вина 
ЖЕЙ ху, ЖИП ИЕ ДЫП ИЛИ, MR HBP 0 RETE (вази), 


TTL EI ИНЕМ АН ЕБІН) СВАИ. £ ЛЕВЕ БИН £ ERE Э ЋАО 
вт (ERE 2) , № 


o = Ba + бу, + Biv, + Ву, жи, 


ЗЕНА Жи. ҰНМЕН. Шул (ШАЯН). ША, АЕН 
EANA EE E B la] ELS CHEER IM, KRA EH HEG. XERE RER 
WOW £. АПИЫН 1 (REEL) MEXR, XR. Ий 
УЗ а о Fl 8 Т. 


кін АЕ ТЕАТ Лав ав SG EREN, НЕ ЛОН НА ти, Qi 
за. дата, ROARK (в) MARKER. жағына», 


Rf AS Е ЕЕГ А BIREK ERN, вежди IER ARE, % 
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наи. ERE Н НИЛДИН. FARBE. (БЕНО ВАН ЈЕЛЕ BLA. 
dnb (БАУЫНА): 


атпа з 
ДОЗА ВИНА лан ТЕНОР НЕ >. 
ІСТЕРІ G АЗ 
ВЕНА ЖЖЕНИЕ ЮРИ, ee E TRU RACE (BRK 
1113) . 
ВЕН 
ива BIKIR, 
ROU (N tr BCE 
ЗАМЕНЕНЫ УТО ДЕ СУД 148.15). 
Бағала тал аза аула а 
HRANE, Живи EG RUE ВОЉАН (@ 87у Ж11 15). 


леди 

ЗЕЯ (Analysis of Variance, ANOVA) Ж-Е КИНЕ ЈА. МАРНЕ 
+, ЖОЛИ, LPR RHE ОВИ ШИКЛЕ 25 жи. Ат. 
REBENE, G£ KUR E, Зе А. Жай Ез Hf) IC 


мно T PI, TO ED PEI АЕА до i XE RICE ta lal 
ПОЕ ТЕ RE, РАСА РАГА ААН ЖЕ, REK LRA LO. 


Jj EA Ec EAE БА НОР О ИТНЕ ЖЗ Q Sit 2 —. ЖАННАТ ES ВА ЕЛ. 
ДАЈЕ. 


Рета 
ЗАЛЕ Jj 3E rik Ri l. Нн PETIERE HIR, ЗЕН ЛИ ан X 
AME AE ТРИО МИА. ALD RC ESTIMA IM. ВЖЕ cA ЕМІ 
о. ШЛИ Жопенау. тез: (8877120) , GU, МЕНЕ 
МЖ. Ш ктизка] лез (9575151123) . 

ве 
24 (8 — A7 ЖЕН Н+ Жл Јов BM RE RBT. E Ja PCIE ic e 
TAN, вЖжапо НІНЕ, ЕЕ Н ШЖ ЖЫ (BRIE 
11.24). 
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ПЕТЕ 
Banova IEE ВИА BUT ЗЕ ВР, НОЛА РОНЕ, РАНЕ 
изложи жи (507715113) . ЛАРАЕЖУ РЕИНИОН ЕН T ХЛ 
жж. 


таит. 


53855 

ЖИ 2 РАНЕНИЙ. RAE 7 lApplied Linear Regression Models (4th 
ed) , ЕйКшпег. NachtsheimfüNeteri* (McGraw-HilVIrwin) , {ЕЖЕ НИМ 
MAC iñ ttt. 

БАБЛО Јар Еагамауй ЖЕ (Practical Regression and ANOVA Using R) , RAE 


ЕЛІК ВИ ЗЕН CJUI АВ ПАК. АТЦ АСКАМ Et ft F8RPDF (лир:// 
cran.r-project.orgdocicontrib/Faraway-PRA.pdf) W. 


11.1 важен 


вм 
АМ fay, CERURA: (ку), (ка, У, .... (х„. у, 
жж, VILE OU NEGRA жена. 


RHR 


витае АЕА ЈЕ REHAN: 


> laly ~ x) 
сай: 
lm(formula = y ~ х) 


ЕНИ A — 





Coefficients: 
(Intercept) x 
ann 3.25 


wie 
СЕ — МАА, аяны АЕ, BREN 
y. МЕНЯ ЖЖ (Ordinary Least-Squares, OLS) ЖЕНЕТ. 


у = Bo вана, 
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Зерт JE EUH Ж Bei e ЕЕ. 


аа ДЕЯН. СПЕ ААЖ, шу-х. ААА ТИ 
Жї} с), AMD EAR. ЯШИ УНЕ Шш. ERI nf EEIUR АНА. Завет 
ЭЖЕ ҖЕ RR RR RUD 


Coefficients: 
(Intercept) x 
ann 3.25 


ЖЕНЕ, БІНЕ. 


у= 17.72 3.2574 8 


живака на, ТЕЗ ааа ABRERA > ЙЕ 
Няя. GEIL, ХАЛЕ Неа етан Pi] 


> = 

x y 
1 0.04781401 5.406651 
2 1.90857986 19.941568 
3 2.79987246 23.922613 
4 4.46755305 32.432904 
5 3.76490363 44.259268 
6 5.92364632 61.151480 
7 8.04611587 26.305505 
8 7.11097986 43.606087 
9 9.73645966 58.262112 
10 9.19324543 57.631029 


1.) 


ЧЕН, Sidat Н H ЕКЕНІНЕ, ҰМ, жал MKH 
чаев PES] Re Uya] i F LH RO Ж. 


> (у 7 x, data-dfra) 8 Take х and y from dfrm 
Call: 
lm(formula = y ~ x, data = dfra) 
Coefficients: 
(Intercept) x 
inm 3.25 
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11.2 Фл [E] Ja 


Te] RÀ 
HLT HINER (Bin, и. уй») ШЕЕ Ry. КИНО Кик E 2 ПН 
ВАХА. ВЕТ T БЕРНУ. 


вал 


ЙІН Пп, ЕЛАНЬ, ие (+) ЭЖ: 


> nly т изу+ м) 


не 
ЖАНЫН E R W БІНЕН”. ХР ASTON ERE, ОДЕ ВЕ, Wi 
ВОЂА UH M k U Rak ЖЕ НИ ЕУІ RC. ДКТЕ = 4 E Ж) 
AA: 


ym В, + бу, + Bav + Виа, 


RARR тве ЗН 0 REA, ХӘН ECEBA, АТО #6 ЛП N 
УИТНИ. HBA H ЛАА ОЯ К: 


> у-и ни +) 
ап: 
de(formla = у ~u + v + w) 


Coefficients: 
(Intercept) П у “ 
1.4222 1.0359 0.9217 0.7261 


чъяканлн, В й S datalb HAM, X СН ЕЕЕ N Ma 
Mibi ТЕПЕ ЖҮ E y RED ERE, RO Б. Е orb, ATF 
ПИЈЕМ САД 


> afm 

y “ v “ 
1 6.584519 0.79939065 2.7971413 4.366557 
6.425215 -2.31338537 2.7836201 4.515084 
7.830578 1.71736899 2.7570401 3.865557 
2.757777 1.27652888 0.4191765 2.547935 


2 
3 
4 
5 5.794566 0.39643488 2.3785468 3.265971 
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6 7.314611 1.82247760 1.8291302 4.518522 
7 2.533638 -1.34186107 2.342593 2.570884 
8 8.696910 0.75946803 3.4028180 4.442560 
9 6.304464 0.92000133 2.0654513 2.835248 
10 8.095094 1.02341093 2.6729252 3.868573 


| ete.) 


RE ede + тт Gt 10/0 S ftdatalt, REBR HENA p FREER: 


> ny ~u + v + w, datardfrm) 


ап: 
In(formila < y ~ u + v + w, data = dfra) 
Coefficients: 
(Intercept) u Y “ 
1.422 — 1.0359 ози? 0.7261 


ХИ МАНЕ РИН рух, WSLF. 


11.3 £838 [eA fe v | 


в 
ни Н Ж ЖИВЕЕ НЫН 0 О НА ЭНА E, MiR, FEHR, RK 
RAKI. RE, DERE. 


RRR 


ЧЕРИ РЕТЕЛ KER, фла. 


ув nly -и+у+ м) 


ЗАРИ Е te ЖУ, БИН ВЈЕРЕ не кина В. de EC Sh e r 





anova(m) 


пад. 


coefficients(m) 


ELLE 





282 жж 


coef(m) 
jcoefficients(n)Rillal. 


confint (m) 
ЖӨНІН ЖЗ W GE RT 
deviance(m) 
EIL јун. 


effects(m) 
AHEM. 


fitted(m) 
жана УК Ж. 


residuals (n) 


ви. 


resid(m) 
'jresiduals(m)Rllil. 


summary (m) 


HAREE, AR, КӨЕН ЭК КЇЙ Жо). 


vcov(m). 


TER Кїз; 36— BRIERE. 


We 
чаени, 1/25 3c PH UE ER CL n KEFTE IA, MIRIT T tu HM 
PERR R PRA: 


> nly “u + v +) 


Call: 

lm(formula = y ~u + v ew) 

Coefficients: 

(Intercept) u H “ 
1.4222 1.059 0.9217 0.7261 


RARE! ЗАНАТА БЬОРК, ImSAS, НМР ИВ. PEBR? KK 
ОЛИВИЯ РАНЫ. EMPIRE SKIER ENE? 


MBA, HK ВЕ aT IAA Rk ЭПА ЖЕП. Job Н RR UE Lo Вж 
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живее. REMER., EHO УЗЕ На Н, ERER 
W £ AB 38 ИА E. 


RC ИУВР, (сале ED REA NER: 
> т < ш(у Tu + v + м) 
MRR RH, DIVE EE ПНВ. ЕРУ 
summary: 
> sumary(s) 


ой: 
la(fomula » y ~ u + v + w) 





Residuals: 
Min 10 Median 30 Max 
-3.3965 -0.9472 -0.4708 1.3730 3.1283 
Coefficients: 
Estimate Std. Error t value РЕФ) 
(Intercept) 1.4222 1.4036 1.013 0.32029 


u 1.0359 0.2811 3.685 0.00106 ** 
у 0.9217 0.3787 2.434 0.02211 * 
Й 0.7261 0.3652 1.988 0.05744 . 


Signif. codes: 0/74! 0,001 9" 0.01 0.05 "7 E 


E E 


Residual standard error: 1.625 on 26 degrees of freedom 
Multiple R-squared: 0.4981, Adjusted R-squared: 0.4402 
F-statistic: 8.603 on 3 and 26 DF, p-value: 0.0003915 


ЗАВИДА RR T HERK, ПЕЛЕ Т XES, ИРЕН. tL 
Той) ЛУАН, ВЕРЕН Е. iC Q tnt ЕЕ, Je TEE bl TPS 
НИ (LHA) 


Ж ЖЛЕ ЛО Ж ЗЕТА LOU HNIC, ВЕНА КЛ. 


BURK CARTA) 
> «өеҚа) 
(Intercept) u у ` 
1.4222050 1.0358725 0.9217432 0.7260653 
BUT Ж О W far PC l 
> сома (в) 
2.5% 97.5% 


(Intercept) -1.46302727 4.307437 
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u 0.45805053 1.613694 
0.14332834 1.700158 
-0.02466125 1.476792 


итин 
> resid(m) 
1 2 3 4 5 6 
-1.41440465 1.55535335 -0.71853222 -2.22308948 -0.60201283 -0.96217874 
7 . В 10 n n 
-1.52877080 0.12587924 -0.03313637 0.34017869 1.820521 -0.90242817 
з м 5 % п E 
2.04481731 1.13630451 -1.19766679 -0.60210494 1.79964497 1.25941264 
m 20 n n E а 
-2.03323530 1.40337142 -1.25605632 -0.84860707 -0.47307439 -0.16335244 
as 26 т E 29 30 
2.16275214 1.53483492 1.65085364 -3.39647629 -0.46853750 3.12825629 
ARF 
> deviance(s) 
[1] 68.69616 
жаа 
> anova(n) 


Analysis of Variance Table 





Response: y 
Df Sum Sq Mean Sq F value — PrOF) 

“ 1 27.916 27.9165 10.5658 0.003178 

v 1 29.830 29.8299 11.2900 0.002416 ** 

Й 1 10.442 10.4423 3.9522 0.057436 . 


Residuals 26 68.696 2.6422 
Заре. codes: o "9 оон 9 ода 9 олу и ол а 
d HR ОРИ STCLIE LA MEER: 


> зивагу(и(у ~ u + v + w)) 


E 


ИЛА. ЖОНЕ О ЕНЕН ОА Е, явя 6, 
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11.4 ВНОС АЯ 


Те] а 
OUT ВНЕР В Nm, Ж, КАНА summary (n) tH HE наивен. 


Wie 
ЮО ЖЕ, СЛЕТ забата. DFE AN E 
м 





> summary (n) 
Can: 
In(fomula = y ~ u + v + w) 
Residuals: 

Min 10 Median 30 Pax 
-3.3965 -0.9472 -0.4708 1.3730 3.1283 


Coefficients: 
Estimate Std. Error t value РЕФ) 
(Intercept) 1.4222 1.4036 1.013 0.32029 


u 1.0359 0.2811 3.685 0.00106 ** 
v 0.9237 0.3787 2.434 0.0223 * 
“ 0.7261 — 0.3652 1.988 0.05744 . 


Signif. codes: 0 





" ooo 79 o.01 "€ 0.05 "S. 0a *' 1 


Residual standard error: 1.625 on 26 degrees of freedom 
Multiple R-squared: 0.4981, — Adjusted R-squared: 0.4402 
F-statistic: 8.603 оп 3 and 26 DF, p-value: 0.0003915 





ШИПИН НИ КЖ ЖЮ ESCAS IC @. CIA KEIR — M RR D ВЕНЕ 
Ж, РИК, На. 


ит 
Gn: 
lm(formula = у ~u + v + w) 
човатн, ДЕК ааа НАЙ, ЗАРА АА Е "BRI 
ЖАЕ Ж ЖЗ, 
яваа 
Residuals: 


Min iQ Median 30 Fx 
-3.3965 -0.9472 -0.4708 1.3730 3.1283 





26 | Жъж 


як 


ikl: 


#2: 


НИЯ Г, EUHELEMEHR ЛЕЖА Е. ce ELEME КИЛЕ den 
RATER. BERE RUIN ee E BR ERIE nS DU PORE, DRE 
Ihr Е ЖӨ ШӨН ва, ard EB Ko BOR AMORE, (EX HL 
Ч fA, U45489. 

Е ^ IET I POE 26. в RE (10) FUR = 4 rtr 
(30) МН Ж#Н Ж. EXT ATE, БОН, НВ 
(1.37308:0.9472) # Pe ATI ERR, UAR ЧОК НЕК ЖЬ 
див. 

ЛУНЫ ЕЕ ВЕ Т FERRI ВИ ПС з БОШ АНИ, 14 НІКІ 
Mt CEME) MERKERS. 


Coefficients: 
Estimate Std. Error t value PrO |t) 

(Intercept) — 1.4222 — 1.4036 1.013 0.32029 

“ 1.0359 — 0.2811 3.685 0.00106 ** 

у 0.912 — 0.3787 2.434 0.02211 * 

` 0.7261 — 0.3652 1.988 0.05744 . 

Signif. codes: o жее? 0,001 79 0.01 79 0.05 "S ва '' а 





Жіп ЖЕ  лакен A t & rh Nñ Mo) A LER IO ЖШ. 


Ат Ей, dn — 1 ERE ЖОКЕ, ВОВЕ, Балан 
ик. Жїн, НОЋИ, CET ER. IUE, NOKRE 
я. MEER ит, Е Ж ОЙ STRE M % Ж? ДЬ ЕНИ Н 
№, пита hap Че 6 valuefü Pr» | t|). 

рим. (АЖ SENI ПЕН, полева. RAKPREN 
№, ТЕНИ ИН ST REFER Б. (rik CT. Жир ЧУ 200.001 06, 
ЕДИ] еми О, А, өр 40.057 44, ВИНА ЕВЕ W RO 05, СК 
ааа гвар ЧЕ AE ET LIA MUS ch ВЕРЕН ЊЕ E RE. 

ВИ h ibt HE E Ла SERRE NE. RDN ЧАЯ Е а. НЕ 
жянашжвалие (++) жив () MAS C) Тш? АНТЕ ЖЕ 
ЛЕЙ. ENIRA "Signif. codes" ОРАН Талиа Ж. 


СТЕЛА 


ЭА Фа = од БЕТОНИ, KHART EKA RR a= 0.10. a= 001. X 
Хеви. пазени. REMO. 
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se p-value between 0 and 0.001 
^ p-value between 0.001 and 0.01 
+ p-value between 0.01 and 0.05 
. p-value between 0.05 and 0.1 
(blank) p-value between 0.1 and 1.0 





Ele 0564. Егготі ple f НУ ВИН ЖЫНЫ, БЕЖЕ ма шей я ЕН 
Ж, РІНДЕ ЖЇЗ. 


RES 


т 


Residual standard error: 1.625 оп 26 degrees of freedom 
DLE Ss Т ЖЭИЕ ЭЕ, Hel НЕ НЕКА ЈЕ. 


Multiple R-squared: 0.4981, Adjusted R-squared: 0.4402 


R (HERK) BERRA щати. "ROUGE AT. RFE, БЕЯ 
ЭНЕ О Bi E MERE SPI Ez уйе EL. HRT ЭЕ НОЖЕН, Ва 
НОЖА (ил, Жш З НЕА). ТЕЗ EMIL. MUSEI 
272 20 .4981 (49.81%) , #44890.5019 (50.19%) XM. 

кілі, JO УЗ UU ЕГІН ЖЕЛІ Жа”, UM SERA ГЕ h E Ri 
ЖЕН, ПРАВЕ КОВА ИЮН. E ЕБІН Е, RAHO, ili 
20.4981. 


ВН 


F-statistic: 8.603 оп 3 and 26 DF, p-value: 0.0003915 


ПАЗ ЗОО ОДЕ E EKE. tn NL fi fÉ fd PL RR OU E Cp ве, 
B,*0) , WIKI QUE ЖИ. RH ОЕ (B=. 0) , RR 
Жж жїз, 

RRRA, pl] F0.05 ЖЕЙК КЕ БЇЗ (DRENA) , три 
31005 ЖЕ И Н STRE JE ER. KR, E ЖЕ ЖУРЕК (10.000391, Ж 
HORE, 

KERARER HHE., ВОНР РАНЧА, БИ UNE 
в, Жазы ЖЖ. 


5855 


ИРАНА НЕЛИ TERRE ЙІ. WESCE IET, 
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11.5 5477 RE h kE 519 


ба 
ВИТ тайния. (ийини о. 


SORTS 


ЖИНА SUE NUR Е"+о". НЕ Ла кожи ит: 


»dm(y7 x + 0) 
HUER EIA Ју PRAE : 
n= pute 


Wie 
аванавеащещ, ВИТЕ ЕВА. R, ВАЖНО. MIER 
важни. (КЕМЕК. ИНАЯ. ОВ, уг ЗКО. 


Е ТОЙЫМ, Лайон н Токио, ВЕНА, ШЕМ, 


> laly ~ x + 0) 


Call: 
In(formula = у ~ x + 0) 


Coefficients: 
x 
2.582 


жалшы тен. IEEE UDIN Ж. t Лон во виа 
в, PRR RB А ЕГ б ie ik И AO. ОО ИНИ АСА. ЕЖА, W 
WEH (712.17, 10.17) + 
> confint(1n(y ~ х) 
25% 975% 


(intercept) -12.171368 10.170070 
2.012768 3.248262 


НИЛА ИЗ, ӨНДИ SEE AIR. ДЕТЕ. ME, НЕОН, 
FRR A. 
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11.6 а та АН ЕБІН 


вм 
пена Ган. 


EHRAR 


ВИА АГДАНА ВИНА ИНО. HORE Mu ROI HET НЕ, lot ЕГО fal 
ARES (9 KUR: 


> иу ~ u*v) 


EH TIGE MEUM, = Во + But Bav Bu, + e, CUR ВЫ Нил, 


iie 
ЖЫН, HAAMER AE, ЖЕН ЙАН. в 
ИГІ HOME и, ЗВ ЗЕЕ А ta ENEE, 


РОДИО КАЖЕ: 
D= Pa + Bau, Йу, + Вим, +, 

ECL, Жы ЕН, FERRARI: 
улау 


49 AysutvlM, RA E ИНЕ h LIE BON E ku. ЕД ЕЛИН, ЕРО 
ERR. АЕ I Уз ВИ Я, вик, ЖАННЯВВИ ТЫ N AS 
ЖЕНА У Wu Fr. 


НІН, ПО ZHER (и. уй») , ЗЕН ЛЕВЕ ИТ нетен Е, ШІН 
ПРЕП 


y 7 шум 
XH FEE: 


i = fo + Bus Ву, + Ву, Bonne Буш, + Birom, + Ву, ts 


BERI ТЖ t8 BERE Bum. 
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до, ЯГЫ STRESS E p УВЕК ен. HERES (2). ват — 
ЛЖ. Яш, и:у:и ФЕ ВОВ v w jfi Ж TREK НЕ. ВИДЕА 
RA: 


yTuevewe шум 
жн ғын. 
ym Pa + Base Biv, + Byw, + Виш, жє, 


W С) дата, ES (9) ДНЕВНОЙ, КАНН, за 
жаңа аны, ои та ВАРА ОРИ А АЕТ. 


Ai — ВЕНА ЊИМЕ ЖЕ ЕЗЕН НАНЕЛИ 


(ever) 
жағ cQ, у, ... ВИА ME — зе. 
(шеу... es 


НОРА BOUT СЕТА 


шау»... дм 


пы, 
ме (*) наз G) ЖШ ВСК", МАДЕИРЕ РЕНО, 


Хи њу жал. и) 
"ESI Рени хе (ШИЕ кину. инхам) o 
xu њу њом. +и) 
CPR әш + xiv ж... жом. 
DERHE ARMA T ВЕЛЕЊЕ. DUI. ДОКЛАДИ, 
у-шу 
y+ 


y^) 


ЖПБ Ж Т НИ РПА Е, у, = В, + Bu + Bav, + Вир, же, 


218] 


ARISE НЕЗА LESE НОВИЯ БЕЛИ. IASA (R in a Nutshell) (O'Reilly) 
UM (R Language Definition) „ 
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11.7 FERA ERM Yk E: 


а 
EEUE- 4 BEI FI R, ВОН ОСЕ ИЗНЕЛИ. por £LH ER. ife qe A HE 
ЗА ВЕЛЕ Mop ofi RAME. 


RHR 
Hs tep TIMES ARA, MARKEN., BME lH НАМЕ ER, REE 
2225 i3: 

> full.sodel <- la(y ~ ха + ха + x3 + ха) 

> reduced.model <- step(full.model, directions"backward") 
ИТА КМЖ іе, ЭННИ ORC ЕЛ NUM, RA ER 2173 
рай 

> min.model <- ішу ~ 1) 

> fwd.model <- step(min.model, direction«"forward", scopes( = xi + ха + #3 + x4 )) 


Уне 
чивзвнитан, ide СЕ УУ ЕЈС ОИ Bs N. R Ne! 
жк, ЖӘНЕН Уа А 


Иер MIR А ИЕ. Е Pl b kW AL ЈУРЕ. ЖМ. CEHA НОМ. 
M. желет! (ші model) . ВЕЗАО ЕРЕ, CRAE IT My W: 
Lo E UD 


> full.nodel <- lafy ~ жа + ха + x3 + x4) 
> sumsary(ful1. model) 


сап: 
In(formula = у = x1 «x2 + x3 + x4) 


Residuals: 
Min — iQ Median 30 Max 
-34.405 -5.153 2.025 6.525 19.186 


Coefficients: 
Estimate Std. Error t value Pr(>|t|) 

(Intercept) 10.274 4.573 2.247 0.0337 * 

а -102.298 — 47.558 -2.151 0.0413 * 
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ж аза — 40.237 
ж T5335 — 34.236 
ж 26.286 42.239 


Signif. codes: o ‘***' 0.001 


0.108 
2.194 
0.622 


0.9145 


0.0377 * 


0.5394 


o.01 


0.05 


Residual standard error: 12.19 on 25 degrees of freedom 
Adjusted R-squared: 0.8664 


Multiple R-squared: 0.8848, 
F-statistic: 


48 on 4 and 25 DF, p-value: 2.235е-11 





REBALSAR. ОАА НУ tep ESEREN. EER TEER ERA 
ВУНЕНИ (reduced model) : 


> reduced.model <- step(full.sodel, direction-"backward") 


Start: AlC«154.: 
y 70 + x2 жэ жэй 


Df Sum of Sq — 455 





а 3 — 135 3185 
-x4 1 57.58 3774.3 
«none» 316.7 154.58 





-xi 1 687.89 4404.6 
эз 3 715.67 4432.4 


Step: AlC«152.6 
ухх 


Df Sum of Sq 555 
-x4 1 o ThE 3796.3 
none» 3718.5 
-x3 1 n3 4455.9 
-xa а 787.96 4506.4 


Step: АТС-151.22. 
yu 


Df Sum of Sq — RSS 
«none» 3796.3 
-xi 1 84.44 4680.7 
-x3 1 964.24 4760.5 





AIC 
152.60 
153.04 


157.68 
157.87 


AIC 
151.22 
152.60 
156.02 
156.36 


atc 
151.22 
155.50 
156.01 


step HRH LS Bi E ЊЕНУ НЕЛИ НЕ]. СЕНЯ К. Бер Tx2fixa, FUMUS 
№ CHE) МОИ Т ха хз. МНЕ ЛИОН AER DEER ӘНІН 


R: 
> затпату(тедисед „воде1) 


сап: 
In(formula = y ~ ха + x3) 





анала» 


293 


Residuals: 
Min | iQ Median 30 мак 
236.192 -2.677 2.049 7.453 19.704 


Coefficients: 
Estimate Std. Error t value Pr(>|t|) 
(Intercept) 10.267 4.437 2.314 0.0285 * 
ж -79.265 31.604 -2.508 0.0185 + 
ж 82.726 — 31590 2.619 0.0143 * 


Signif. codes: o "ене" 0,001 "*" 0.01 f 0.05 "S ва ° 1 


Residual standard error: 11.86 оп 27 degrees of freedom 
Multiple R-squared: 0.8823, — Adjusted R-squared: 0.8736 
F-statistic: 101.2 on 2 and 27 DF, p-value: 2.842e-13 


FTES IRE Ef, MAEA AHURURAA EERI, RAKEM 
ката. ТЕНИНЕ, ЕЛИП ЖЕН, сжанжазти, REE MME 
KAREMA., ВНЕЛЕ, CEET. 


ЖАН BUSY ERG ЖЕ Ж гниене: 
> min.model <- la(y ~ 1) 


за равни (у) {LUE ВИАН RERO HUS. (PTH yU IA УО НИС, maq 
пише, CH ata А АНИ). 


ULLAS ерін A МЕЛИНА AERE, ЗХ rs copelf Hif). зсорев—ЉА 
Ж. Ub, ЕАМ (~) ЈЕНИ EN BOR ERE: 


> fid.nodel <- step(min.model, 


+ directions" forward", 
+ scopes( ~ xi + x2 + 3 + x4), 
М traceso ) 


АШ, ВИП. хо, x3 xA EAS А НИОР TENE (БЕ тасе- О ИМ ери Ж. 
жән). «СРЕО КОСТ TRI HF ULT LU TON ER 


> sumsary(fwd.model) 


Gn: 
la(formla = y ~ x3 + x1) 
Residuals: 

Min 10 Median о мах 


-36.192 -2.677 2.049 7.453 19.704 
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Coefficients: 
Estimate Std. Error t value Pr(>|t|) 


(Intercept) 10.27 4.437 2.314 0.0285 * 
ж 82.726 — 31590 2.619 0.0143 * 
x -79.265 31.604 -2.508 0.0185 + 





Signif. codes: o "ве? оло: 79 0.01 "f 0.05 "S ол 7 
Residual standard error: 11.86 on 27 degrees of freedom 


Multiple R-squared: 0.8823, Adjusted R-squared: 0.8736 
F-statistic: 101.2 on 2 and 27 DF, p-value: 2.842e-13 


ЖӨ A x10x3, НЕКО д, АРИЯ НИ РОЗЈЕ НЕ T MILI BR, ЗЕ АИ 
HERAF, ААЖ АЯ. (ESRB P, шиін ЖЛ РИ Bh, 
ЕА ИЕР НЕНИЯ. 


ЖП. ЖЕН АЕ ИЖЕ НИЖЕ, сезон, КЕНЕ IE CC , 
Tf ELE SOHO EM FI b ЕТ ЕУ СЕ ВЕС талан ЗЕТУ 
RIBUS E SpA БГ ВЕНУ ни ЕН, ФАЈЛ ердін! ЖИИ аза нон! ” 
ФЕРИ FR. 


> full.model <- Лабу ~ (x1 + ха + x3 + x4)^4) # All possible interactions 
> reduced.model <- step(full.model, direction"backward") 


ВАЖИ КНУ TEUER ах. Иер сж, mü FW £ 
LEM 


BRS 


$1124, 


11.8 XRF ЕНІН 


Тед 
Зови CICERO OLATHE, 


RORIS 


ал — 1 $subset, ЕЕ ТЯ ИВ Н TUA. Wert ПНЕ 
ШЕЕ ФЕ а SUR T FUB 1004 REHA ELA ща: 


> Лабу ~ x, subset-1:100) # Use only x[1:100] 
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Я 
f ЗАТЕ Er) T E. Им, ЧЕН жан ЖКЖ 
HREN, жайат. 


ICI —^ $ subset, TE BOB КЕПТ НЙ, зибзе а Уж. ЕП 
О RS. ЖАНИЯ, RARE АЕН ЖЇЗ ЮНИ. свит 
жаңын, КЕЕ! ЧЕНЕ], ХИМИЯ. Imi Efe HETRE, 


ЙӘН (x, у) Hf 1000410, Зе 5 E EUH GC HOUR UC — E e CL f 
MUS, SILBER S Кзирзе И 01 : 500, CHIMER ~ 5000930 : 


> la(y ~ x, subset=1:500) 


ЖАНа, "ГИЯ Ка i floor (length (x) /2) Jo Feld ВЕ, ЖЪЛТ K E: 
Bb: 


> шу" x, subset«1:floor(length(x)/2)) 


ЕЯ, ШОНА ЛИ ает, Н— BN Tlab, OR UUBHR POR I co 
ж. НИНЕ ИОТ ШЕЕ иа Ж. PRET CLEE VAREDE (АЛЕ ЙЕ 
Vise Ти 


> lm(y x, subset«(lab == "NJ*)) 


11.9 ЕАН 


те] а 
ЗЕНИТ, ЕДЕ А ААО (ина Жш A LESE. 


NORTE 
ЖЕҢ. „ЈЕЗИКА ЕРИ AGAS. CHER EEG AGAS GC E PI LEGE 


нин. 
ию 
ишкенин ишт Н, ЖАШ ЕНУ. 


ж = Pa + Йун, + vi) +, 
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Tents He. БВУ - BUR ARE? U Каена). 
> ly “u + v) а Not quite right 


KH, RECURRENT SFE, HEA САО ВИНА. ан, нет 
HERBA. 


J = Bot Bu, + Ba + e, 
DU FREI ERE: 

> му ~ u + ил) # That's ап interaction, not a quadratic term 
ВИННИ (ВЈ 6). писач, 


налжияц..увят, de Us НОЗИ ОКА БОА THE E NC. МЕ 
ЗИМЕ EL ZR, HE, ВЕЖУ ВОН. РАЈА НОВЕ A UC A El 
ІН. М ЧТО T 


> иу“ Ци + v)) 
FARKAS HME, RE Wuv, АННИНО Ry T ВИН, 
ЭНЕ ИЧИГ, ЕТ: 

> иу ~ u + Циз)) 
XUL, КЕНИИ, ЖА ини? Мутын. 


ЖЕНІНДЕ UE, MARE ЛЕТЕ (+. —. *. 7. 9) HRA SL. НРК 
я, “ЖЕНЕ ИШАА ЕНИ, АНИ... ЕТ. 


JE PEU Л RHR АЕ RIO ABE ВЕНА. ЈЕ ЕС НА Wik i BUMP Ра ве 
№. ЕЧИБ ИО KR, CEMR, RESE uf TER Ж Ж 
МТ. Вита а CRH MuE: 


> m € lay ~ u + 1(2)) 
> predict(n, newdatasdata. frane(u=13.4)) # R plugs u and иа into the calculation 


1 
11531.59 


EE 


ФК ЛОТ единния. БЕЛЕП HEC EHI REA A ТИ 
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11.10 £t EY 


юй 
EROR ETRE. 


RHR 
EMAR IIH A poly (x n) AERE An О Т0, ATHEA Хо. 
MEKAR: 


> In(y ~ poly(x,3,raw=TRUE)) 
НАРОД АВА РАК ЖРИНА K, 

vm б, + Йу, + Вид + Вай +, 
не 
Д ТЕВЕ С УГ, ЖА Таки КВ: 





экза с ка 
> Ce с кз 
> mc- nly ~ x + X sq қай) 
шия, ивфлик, ном E RUE Ro Ее in] URL. 
КУР 19% Г. 
> m € 1n(y ~ poly(x,3, raw TRUE)) 
ВЕ гамеТЕЏЕ 6 ЗЕН). КЕ, рол НИЈЕ 3 £ BG AA И ЕК. 


DAE SUR T JE ES, ЛЕХ ТАЙ ВИА КАНЕВ, ВНР 
RIM (вяущиав) + аи, желан, ЖМ ЕП HWH, 


3 —^- EEN в роту нЕ, ЖЕНІЛ КЖ БІН Ж. 
> Маут x + ха + кз) # Does not do what you think! 


RAAE ЖЕЛИ, PERH. акта E — I MRE EN, Ж 
РАН. ада ЕЕ ЗЕН АЖ. 


> Му ~ x + I(x^2) + 1(x^3)) 
ЕНЕЛ. WIBHlpoly. 
жиа 
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PRSA 
ж херели, ейік. илап пакет EUROS 
fik. 


11.11 FERRE [8] a 


із) 
жонунда гази, аанак, 


МАЛ 
ECKE BUA A АНАЛ ВЕНЕВ. Bn. В инок), ML FUR AE 
», 


> lm(log(y) ~ x) 


жне 
мінажат СНВ БАЕ ЕГИЗ ЖИМ Е, НБС, 
Hide FAM ZR X 


авто, VEE И EZ НТВ Ж. таи T НОВОЕ 
Ят. Плав ж T HGB, ЕНЕ ЖТ ИІНІНЕ, IX 
енеді. n СРЕ ЕЈ У 62, — A STRE ЛА 





z = скрий, + Ви + e] 


Жер, HEBES, expl ERKAN (е). ik REFREN, {Н ЖИПТЕ А E 
Aci tle HP GG. 


log) = fo + Ви + е 
ER, КИНА ИИ, РВИ ЛЕВ че CHECA БІН АЖ. 


>ne b rud то 
> sumary(n) 


Call: 
1n(formula = log(z) ~ +) 
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Residuals: 
Min 10 Median 30 мах 
-0.17366 -0.09070 -0.03761 0.08080 0.36454 
Coefficients: 
Estimate Std. Error t value Pr(>|t|) 
(Intercept) -0.22059 0.01653 -13.35 <2e-16 *** 
t -1.16110 0.02056 -56.46 <2e-16 *** 


Signif. codes: 0 "өен" 0,001 ‘** 0.01 `” 0.05 ' ва `' 1 


Residual standard error: 0.1275 on 98 degrees of freedom 
Multiple R-squared: 0.9702, Adjusted R-squared: 0.9699 
F-statistic: 3188 on 1 and 98 DF, p-value: 

Веј Тов (СУРАН EEE, e D f МКИ ЕЗ CNR, енд. 

PREFE, ЗАБ ТОДА UAR НЖЖ. R= 0.97, ifi ICH BOR I HH ILU Y 

R'=026. 





2.20-16 




















Transformed 
è 8 
8 е 
„ 8 i 
$ š s 
š 3 ^a 
3 e 
3 le 
5 o o сој 3 `° 
тт 7 r 
00 05 10 15 20 25 00 05 10 15 20 25 
Time Time 
a) b) 








Вил: НЕДИЋ 

ДО A 3, m US IU RE Сз, РАСУ FIRE: 
> la(sqrt(y) ~ month) 

З ПД А АН ЕК а. ДК ЖЕСЕ ЈН Ely 
> му ~ sqrt(x)) 

ОТЕ ТУЙ НСНУ АА 
> Ла(10в(у) ~ 19860) 
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5859 


$2, 


11.12 SHE EXE SEHR 
ic] 


ABE aha a e k s — 4 TE OR CEU MEA 


вал 
E RIBox-CoxUF,. ТЕШИК GNASSHI ОА Щьохсожвт. ik RUF АНИЈЕ НЕВА, 
ЗН у erac OR 

> library(MASS) 


эт «= lay = х) 
> boxcox(s) 


Wie 
% TWIBox-CoxRUF, RET ВЕКУ ax + Of ЕА BR Joh UE: 
ужас 10:100 


> eps <- rnorm(length(x), 4-5) 
> y € (x + eps)^(-1/1.5) 


MERMA (HR) MAM RHE EIA ЈА ВИТРИ 
0.6935: 


> во иу ~ 
> summary (a) 


Call: 
In(formula = y ~ x) 


Residuals: 
Min iQ Median за 
-0.038866 -0.016128 -0.004948 0.008367 0.083354 


Coefficients: 
Estimate — Std. Error t value Pr(>|t|) 

(Intercept) з,5800-01 5.10003 27.67 <2e-16 не 
-1.3406-03 9.368е-05 -14.30 ‹2е-16 *** 


Signif. codes: o ^ оло: б ода CI oos И ол ° 4 





зевнюлжян | 301 


Residual standard error: 0.02347 on 89 degrees of freedom 
Multiple R-squared: 0.6969, Adjusted R-squared: 0.6935 
F-statistic: 204.6 on 1 and 89 DF, p-value: < 2.2е-16 


ЗНА ЗЕННО АА НВ, ЖІ БИІНЕ EE AG 





> plot(n, whichs1) # Plot only the fitted vs residuals 
ПЕВАО. огрев 





T8 11-2235 мазе НИП АЧА ЙО 
ЛЕЗЬ, BIA B fiBox-CoxRUT: 

> Mibrary(MSS) 

> bc «- boxcox(m) 
HRboxcox&li DE, Anil L1-2b BR, М T АРЕНИ ЖІ АЕ CARET А ЖОШ 
ЖИ, дожахеатикияи, BELL CHR — KR Re E LI ER. JE HAE 
а W ІК МЕНЯ. ЕЖИК, AREE MCA 1.5, ЈУТРО 























(A235, =125) , 
Resduala vs ад 
8 98 & 
оФ 
i : 2 : 
8 зе Е 
а Ка 8 
un rU rM T T TUE T 
ooz ою ою ом зла. NS 
Filed vies А 
а) b) 
11-2: Вох-Сохв 


THERE, Hitboxcox GR А ВОЛА ЕНИ. НІН. EE EREP (х,у) Ж. R 
ВОДИЛЕ RI, CEYN A. ИИИ EA Жыһісһ. max: 


> Which.max(bc$y) 
из 


ГЕНА : 
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» lambda «- bc$x[which.max(bc$y)] 
> lambda 

[1] -1.515152 
HR ТАНИ Х — 1.515. ЕН, РАНЕНЫХ ЋИН, ЗНАК 
TURCO ECC IRR TE W НК “REE” а. TAEA DECRE BD АНЕ ВИН 
ИМЯ. 358, апажткане-1515. 


ЗАП Г ух EER, PAGO AH а ЕВЕ ИО ТАИ 
0.9595; 


> z <= y^lanbda 


Cal: 
In(formula = z ~ x) 


Residuals: 
Min 30 Median 0 қ 
-12.4325 -3.6608 -0.8793 2.3856 15.0977 


Coefficients: 
Estimate Std. Error t value Pr(>|t|) 

Intercept) vim 1.36496 0.453 оёз 
1.03382 0.02239 46.164 <26-16"" 


Signif. codes: 0 ^ 





" 0.001 "и" 0.01 "€ 0.05 "S. 01 Та 





Residual standard error: 5.612 on 89 degrees of freedom 
Multiple R-squared: 0.9599, — Adjusted R-squared: 0.9595 
F-statistic: 2131 on 1 and 89 DF, p-value: < 2.2е-16 
ЖИЕК КМЕТ А, ВОЛЕВИ ЈЕ ВЫКЛ ВИЕ ЕПН З. 
> а <- табу lambda) ~ x) 
ЖІЛІК, Бохсох ИН -2— «2/8/20. АТСА ФП апьдай E ТЕН. 
ЕГО 


Ж UHEBox-Coxft НЕ EER, ПАЛ. dn RA RH 
T ER L0, MATERA BERERA. ЖЖ, ЕН ЙЛ ИЕ E ИЕА 
Жж. БИІ ОТ? 


PRSA 


SX ik ия 15. 
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11.13 DARAH EEKE 


в 
EEETMEAA, ЖЫН ЖЕЙУ АЙ, 


ШЕ 


ен ЕВЕ Рение, ЖУН cconfint ЕЕ ВНАСЯ, 


> m<- lay ~ ха + x2) 
> confint(m) 


не 
WUT RR MORIR = 0, + B.G), + B(x), +e. НИШ сол ARE (WD) (9 W LC 
M. љуби (ПА) Да жї (ш). 


> confint(m) 
25% 955% 
(intercept) -5.332195 12.361525 
-3.009050 1.282295 
а 1.892437 7.093099 


ЖІЛІК К, сопбпе H АЖ 959, ЕНЕ Вече + — 18 ИЖ: 
> tonfint(m, leveleo.99) 
0.5% 99.5% 
(Intercept) -8.4316652 15-460995 


-3.7610142 2.034059 
а 0.9818897 8.004046 


»взя 


Ak fF tarmi K соебртого LALA ЕПН ЖА W (C f] 


11.14 AER% 


в 
жк EUROS а ж. 
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ERIE 


fa LLAPI HP E FERAE РЕНН 


> m <- laly ~ х) 
> plot(m, which=1) 


ию 
ЖИТ, МЛН аў E EWI, касанвкин сви жи 
таж. 


ВТЗ ГАИ ңінде, кама ВРАНА ВИ 
MNBGKRIOSTHLICT. A Din, АНЕ. 





Residuals vs Fitted 





10 





-10 




















o o o 
o 
Š ej мо ° 
T T m T T T 
20 40 60 во 100 120 
Fitted values 
imiy ~x) 

виз: НОЯ 
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жібі 


вал, CUA TRÆRNE REHAT. 


11.15 i£ rz tb [e] Jd 


аа 
за Т—ЉЕЖЕВИА. ЖЕТЕ ЯНИ ЕЕ ЖЕ ПЕН И ШЖ. 


NORTE 


их, зову ЕЛЕН: 


> m c- ly x) 
> plot(m) 


тн, Ж ЛЕЯ ЭКИДЕ Ра EUH I Pe сат 9 Жои Пет ке OE UH ten 
жи, 


> library(car) 
> outlier. test (n) 


ща, ӨНЕРИ (48. 28: 11.16) « 


не 
к (cit В МЕА Ја AE на: дата. RT, АВИВ —Љ 
Mist) ВЕ AE ME AOL Cr алал ала аа тат аа 


Tel IPRC Web ааа та лала ТИТА 
За) , МЕРИН B вот ar д2 h, FERMEN, "ERZIUINTO.05, 490) 
VeRO USE STRE AE & ЖЖ. СИ. 


ML OA ВИ ЕЛ АНА је ИТ E 


> m <- lafy ~ x) 
> plot(n) 


Вата TAARA РИН: 


` EREP AIRMEN, KEREM N. 
° БЕЖООВЊИОЛАЖЊЕВ E, КЕНИЯ. 
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ias 
10 


- о 





Е 


























811-4. винвизие 
. АЛИНЫ, УДАЛА НЕ ЈЕ НЕ SIR. 


ЖЕЕ, Виза атанын алата жатат Г A h 
ты. ӘРІП. MEREEN: ЧАЙ KAF, ШРИ 
EEEE, ВЕНУ НОК ВЕНА MOT: иа. ЛИ ТЕЖЕ 
HEE. МАЕ ПЖ, РАВЕНА АНЫН, ЗЕТ НЕНІҢ 
MEME. 


ЖА KEI. Min, EZ Q-Q ЕЛЕ BIA W £ ЖЕНИ 
М. Kh- fE RARA — НВ B JF ih aD EMG, ФЕ АНЯ 
жй. 
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= 
2 5 
ые eh < 
25-077: 
3 2 ° 
= т му т”. 





























811-5, ЖЕНИ 


анат малта ыла тарат БК ИВ МЕ RIK НИ ак. И, 
MUN STRA BHA. ЗАГСА F сат HER outlier . без И" 
> outlier.test(n) 


max|rstudent| = 3.183304, degrees of freedom = 27, 
unadjusted p = 0.003648903, Bonferroni p = 0.1094671 


Observation: 28 


ош 1 1ег лез ДЯН TENKE ЙЫН НИ. (Ex Erb. ІНІН TARS 
JEFE — I REIHE, 


Бы ka 


защитни 16. сагаа КИНЕ ИО — M ELUHE. 
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11.16 ЗА RETI ИУ RE а. 


юй 
BRA СЕ ДОНУ ЖИВИ. KRHA ВСЕ PTI REF TEE FF 
Hf. 


ERR 
Hifltinfluence.measuresta & T Л. ЖИВЕЕ СЯ А АННАН, “Л 
$ (9 ICH Ж#Н. EEEN GEE EAN ERON k: 


> influence. measures (в) 


We 

БОЈ АТОС ИУ ТОР ТИВТА ERE £ RI. BODL 
живюминат, ЖАН — У ВИС ЛЕ A BA — LE LALE ТИТ 
(influential) IM, KEE E Ы еи и СЕ E Фуа РНС Паво TRA 
MERILE, A БЕГ РГ Ae Bi MORK RH. eI i CL fece 


Hilltinfluence.measuresfi is; ГЛЕН: DFBETAS, DFFITS. МЖК, ЖЖ 
(Cook) ЖІБІН. о He НЕ UC IU ef] — 49] — 1 LUCI CE 
та, МИЛАНА ВЕСОВ ЗИ НУЖЕН —Л Е (*) Ва 

> dnfiuence.measures(s) 


Infuence neasures of 
lm(formula = z ~ x) : 


ања_ — Ф.х dffit cov. cook.d — hat inf 
1 








1 0.64663 -0.56267 0.6466 1.04 1.98e-01 0.1373 
2 0.40133 -0.33798 0.4020 1.11 8.01e-02 0.1137 
З 0.29023 -0.23992 0.1914 1.14 4.29е-02 0.1035 
4 0.13947 -0.11036 0.1409 1.16 1.02е-02 0.0862 
5 0.40997 -0.33125 0.4133 1.05 8.34е-02 0.0932 
` (ete.) 
25 -0.00985 0.02449 0.0338 

0.06341 0.0856 

0.31877 0.3888 





0.74122 0.9580 
0.18050 0.2187 1.17 2.44е-02 
30 -0.37679 0.64112 0.7398 0.97 2.516:01 0.1339 
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KEHRIS, пиво яка Сита. H~ ode T BOXE 
Ш, ПЕЛЕ НИТИ. 


КАЛ лана, (НИЖНЕЕ. 2А B E А] 
Wi, ежен кас ФИНЕ ЛУ REGES Гел? 


PRSA 
ВИЗИ 15. BUfihelp(influence.neasures EL Я ЯН MAE HARIRI 
ак, ЗНАТИ, ТАНИ. 


11.17 ЯК 


вм 
о ТУ ЕН RR IO И RHE, 


мля 
Durbin-Watsonfr ЛД ЕНЕ Ж ЭКЗ А HKE. ЗА ни Иве fioi Mdwtest 
ае. 

> Mbrary(Intest) 


эт lafy ~ x) # Create a model object 
> ñaest(a) * Test the model residuals 


НЫ — pli, RARA, Rp 005, ВОЕН, Rp 0.05, Mitti 
tir ao amt. 
"АТД ЗВ МВА А НК (АСЕ) ЖИН НОВИ — 1 TL (ERO OO 


> acf(n) # Plot the АСЕ of the model residuals 


We 

Durbin-Watsonfz ril Ж Hi FREI ЛЕУ r, (Н КЫШ; Ge ДА JH ЖЕ (E ВИНЕ iI 
HHR. пеш SURE d f AMR, MAEM T БИН, РШЕ 
ROARK. ВНЕСЕНЫ — нінен, RHEE 
ЧА НІНЕН Ж», ins Rap РЕНО. 


JE BETAESET гпавание, REBERE А HIS, ВИВА Т р 
180.077 55, Ж (ETE В ЖИЗ АНК. 





зо | жиж 


>" c day ~ x) 
> dutest(n) 


Durbin-Watson test 
data: т 


DW = 1.5654, p-value = 0.07755. 
alternative hypothesis: true autocorrelation is greater than 0 


W T DET ША ETE А НЕК. pl 110.012 98, BICLURSTRETETE AHMA: 


> m <- nly 2) 
> detest(n) 


Durbin-Watson test 
data: m 


DW = 1.2946, p-value = 0.01298 
alternative hypothesis: true autocorrelation 15 greater than 0 


BRUT, амсеѕ т Л ЕО, УРАЛ: АЭРО ОНЦ) ШЖ 
МУРАТА ННВ А НОЖ (ik ДЕ — EESTREROM UL) , ВАКА ВО Va Lternativefe OK 
Barna, 

> Фбезї(в, alternative="two.sided") 


Durbin-Watsontà i b ik саге а итђап ма волт. ЖИК ЯИК 
dwtest, BR IA ЖУРИ К Ж БЕ, 


PRSA 


RIDES ER ds Mob 0k qr 8k HE OImtestest, ФИКИ сат, BLIAIN. 
МОЯТ ОЙО АЕ, ES 4 УКВ 14.16, 


11.18 Нама 


вм 
кнн нун. 


RRR 
CHINE RE r ia REE — ЖЕНЕ. ЗН predict, HERRENE ASK 
пендака ИИ : 


> me- laly ~u + v +w) 
> preds <- data.frane(u=3.1, v=4.0, ме5.5) 
> predict(n, nexdataepreds) 





&нтынил #1 | зи 


We 
—HÁiT—T-HIEBUP, ВНА А SM, ЖЖ ÉEpredicth GBA REME 
$. кина HE— УЕ eoe E. 


HRipredictikIl — “Мын, EF АО ЕЕ T BR — 17. ЕМУ ИЛИ 
ва ЧЕ, Biblpredictili isl УИ: 


> preds <- data.frase(us3.1, v=4.0, ме5:5) 
> predict(m, newdata«preds) 


1 
111374 


An URN REELS £ а алан аламы USER FRUI 





11.97277 12.31374 12.65472 12.99569 


KE ER HIE, ONIS ERE GL AER, НМ. НЕЕ, MEERE 
яви, DICAS SI ИЕ ОСНО E RII. 


звзя 


FIER HM ENE а (EE, КРАМНИК ЧАС, ІЛ ІН Ji 11.19. 


11.19 вупика 


DL: 
ТЕ ЕВЕ РАНА ЛИИ. RA кой ROS, RUTRUM C ЖЕМ. 


МАЛ 


WII Жргей СОРИ W ##cinterval="prediction"; 


> predict(n, newdataspreds, interval-"prediction") 
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зе 
жали лв. НХ, EMNE REEF EUR мек, REMM AK 
ртейїсї ЖИВИ. ix B, Him®ftinterval="prediction" CLER PRIMI Il, 
ТЕШЛЕ ЗУ И 18, IER UT ИСН. L wru pr) НЕ БСВ Е ДЕЖ 
FR 
> predict(m, newdataspreds, intervale"prediction") 
f lr ирг 
1.9727] 7.999848 15.94569 
2.31374 8.272327 16.35516 


E 
21 

3 12.65472 8.540045 16.76939 
4 12.99569 8.803251 17.18813 


ЖАНИЯ Т, predictilUH 10.9509 АЖР. ILL level kE E, 


ТЕЛЕ, АНХ НИЕ S AE UL JG RR D. Ао ИЕНА ЕЕ ЕЕЕ 09 
ЕМ EUREN 0, (n Mik (#97138) ЖІНЕНІМІКІШ, 


11.20 ат E] 3: y EAT 


T] RR 
Шала ЕЛ RB AE TE О. ЕЛИ ЗЕ a 8 k ВН ДЕ E E ¥ ГІ 
зи. 


RRR 
ШИРЕ, PRU ES iñ опену. Кезі: 
> onesay. testis = 6) 


ЖШ, а Ін. (GE О — ат. За HER Тр. RERA, p< 
0.052 WI Hi iR MAREEN, Ti, р> 0.05 f EDGE ЕНІНІҢ, 


ию 

HARE HERMES. ARH Ж Hik енд, ЗЕН ИЛ ЕШ 
Шаа тал ы £ HL ЕВЕ FAIA. (Жии ЖИЙ 
їй, ) 


ЖЖЕНИЕ, ВЕНЕ IPAE RIO RUE, dn 
ЖЕ, МЕН Кгизкај-уашу вије (ВЯОУЖИ 23). 
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Заполски i ВО ЕЗ Ë Be ВИ ЖЕ ВЕРА 7у Зе br. RET BE KEE A В НЕ A 
ви SERIO) Bin, евра, 10) txt En FEVEREMIEUD В, 
ilt ОПНЕ — ARTA ЕЖЕН АН. kr АЦЕ E RS00Fh k HEC 
НАК, ПЕН НИЖИ TEE. попа ВЕ ЖЕЙН IB: 1 
Я. 2H. 34%, RERÁ 1950—2009, 


AR GR ВТ Ш Орій 00.033 47: 
> oneway.test(r ~ mon) 
One-way analysis of means (not assuming equal variances) 


data: r and mon 
F = 1.9102, num df = 11.000, депов df = 5930.142, p-value = 0.03347 


RTU, МЕЋЕВИ HS Ht ЖЛ: Ж ХЕ. 


МАЈЕ. ЕИЗ ЕБР ЛОРАНА В, HA E Ies МОДЕН 
HE? Ws CURED subset RUM WEGE BH, Акопенау tes Hil 
алата аА АТКА НИО ВТ, MENA TURON Т. kul, 
Ter He2500 4- REOR BEIC ЕКТ, зк KEYE IORN: 
> oneway.test(r ~ son, subsetetail(seq along(r),2500)) 
One-way analysis of means (not assuming equal variances) 


data: r and mon 
F = 0.7973, num df = 11.000, депов df = 975.963, p-value = 0.643 


ЖЕ Y0fE sp, уха J] IRIE HHR Г. НЕКИМ 0.643, "ACT RU ОН 
HUBRIS HIS tt; SLE RC, ше, жиен жици As T 


ЊЕ, опенау лез НИНА. " (not assuming equal variances) ” (FMA 
ЖЕН). ПОНИКЛИ ВН НІ ЕГУ, RAKES Маг. equaleTRUERESIA (RS 
MR: 


> oneway.test(x ~ f, var.equal-TRUE) 
ЖБТ ИЛИ aov tr АЦ Ж ИТ, tn RB. 


> m <- aov(x ~ f) 
> sumary(s) 


Jii, М аоу W BHN, ВДЕНопенау test ЖЕЙК. 


RACHEL. "on. GRDETRÉACLA  HEHLLIEA LR жевал. n. 
9A. 4Я. ПЯ. SA. ЗА. 6A, 12A, 8284928. 7 
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же 
MRE LEUR D, (REIHE 1,224 KEAR., n ЧЕ АЕ Ју ЕН ЖЕЛЕ, 
ж. НЕ 23, 


11.21 аня 


Ta] RR 
AREN: EMMI REND REME NANE RI ED, ПЕНИ 
dit zz I eT ff de n XR TWO FERA. 


EHRAR 
ЗИ 58 fitinteraction.plot: 
> dnteraction.plot(predi, pred2, resp) 


ЗА, predifipred2 09/27 BUWAE М, Птезр EMILE, 


We 

ДУВА Wr k HEISE ВХ, АНА СЕ — A EM TE ВЕТА E E ВЕНУ А 
Вж. EREZ AEI BOM E R 0022 ОЖ: эч — 1 ENDE B 0016 Ж A: E 
TE, ЈКРВ AE ERI LZ E REC XR b BË RAE EE, Va HUN IER трон ЕА 
АСА 


ЖАҒЫ Ғагамауф Чо & Рд Ха ВК. ФИНЕ, treatfüpoisonib Ж 
ЛЕЩ, пиле ди AEN. 24% Мройзопянзлей IUBE, RIQ EU dL ALME Ж 
вий, Ffit. Ат, WHHiGinteraction.plot fif] IB JE еи ет: 





> library (faraway) 
> data(rats) 
> interaction.plot(rats$poison, rats$trest, rats$tine) 
RIBE ANE 11-G. APRILI T tineRipoison Ж. Hr Hf) e FERA 
Ки теа. АЕО, ПАВ. WET, akay 
treathil “HM” TRA, бЕроіѕоп тілей ЖЕНА ТБН ЕЖ, 


Àk BURA ВА SE BO Re STRE VETERE Н ЖЖ. HEKE, ПА ЛАВ 432 H 3: 
Ж. ШЕЙН ЕЖЕ. KEMERE: "Нежен, ЛЕНЕ. 
а ЛЕНЫ. 
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mean of time 
04 05 06 07 08 09 
icu 
>осе 


оз 











02 














811-6; treatküpoison3z аж 


RASA 


БЕУ 6. 


11.22 33:3) Z8 [8] 35) 8 BJ Af E] 
іш 


живо, ЭУ; Ж Fr RFK EAE АИО НИ, ЕЖЕ Зай Hifi HO ЕДІН (f 
X5. 


ORT SE 
ШІН а ома tr Jj ESHER, Елань. АНХ ЛЕН КЕ FR C 
TukeyHSD: 


> m<- aov(x - f) 
> TukeyiSD(u) 
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EHE, вик, FED HUC. ИИА Ти ке ун5 рај ЖШ GE SIX TERMA 
Жж 


> plot(TukeyHisD(m)) 
We 
НЕРВА, RA ERE UE UH НЕНИЯ. {Lik yk ат 
HASSLE IIR, mü ELE LATE EE TRAE SR. 


И TukeyHSDST LAHAR AER, ЕН ИАА ША СЙ ИС. РАЯ John Tukey At 
LLLI LL E 


ЖАННА ЭУ 20 09 08 ЕВЕ Тикеун50, {EZ 11.200 Н JW m r 
Hye slc OM A HL. ІН, мое T fE ERDAL, UTE ма a уй — JH ЕЛЕ 
ЧЕХ (OW. <, МЕ). REMSOR, "ЕД УВА EA 1950— 1960 4:03 
ЛА Hee (ones 


> oneay.test(r ~ wday, subset=1:2500) 





One-way analysis of means (not assuming equal variances) 


data: r and wday 
F = 12.6051, num df = 4.000, denon df = 1242.499, p-value = 4.672е-10 


PREFE, k EI T. ft: H B S BE 3629 AE REI ID, УТ 
TukeyHSD, Жоу MRT EVARE, CEMA, қанша 
AER тикеунзо: 


> т <- aov(r ~ wday, subset«1:2500) 
> TukeyHSD(m) 
Tukey multiple comparisons of means 
95% fanily-wise confidence level 


Fit: aov(formula = r ~ wday, subset = 1:2500) 


Suday 

ditt ler wr рад) 
Tue-Mon 0.13131281 0.007025859 0.2555998 0.0323054 
Wed-Mon 0.23846814 0.114846431 0.3620898 0.0000015 
Thu-Mon 0.22371916 0.099432205 0.3480061 0.0000094 
Fri-Mon 0.31728974 0.192816883 0.4417626 0.0000000 
Wed-Tue 0.10715532 -0.015961497 0.2302721 0.1222470 
Thu-Tue 0.09240635 -0.031378436 0.2161911 0.2481996 
Fri-Tue 0.18597693 0.062005489 0.3099484 0.0004185 
Thu-Wed -0.01474898 -0.137865796 0.1083678 0.9975329 
Fri-Med 0.07882161 -0.044482882 0.2021261 0.4064721 
Fri-Thu 0.09357058 -0.030400857 0.2175420 0.2378246 
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Еван THRE (diff) IRIE ЯРНО REK МИ ЕРЕ TER 
(wrfüupr) . Blin, KPI —fTEERTue (EM) MAWed (EWE) #1: CNY 
dA 053: Я 0.1313, ЖЕУ ЧАС (0.0070, 0.2556) . 





КОЖЕ, RTSTDURSIFri- Mon (W — 8—) ПОЕНИ ХР. УНИЈЕ 
03173, 


TukeyHSD—^- (ffi наз ЕЕ Е, ТОД FOR ERK ВЕЗЕ. ТАМНЕ LR BOK ЕНИ. 


тт. 
> plot(TukeyHSD(m)) 


т T НАЯ. ЖЕН ЕМІН ТӨМ ЕУ ЧС Па] tik I MULES 
ве, МАРЛИН qd Л. И ЧАС МИНДИ, ЖЕНА ДЕ УКЖ — EE Жо. ETT 
КАЖ, Fri- Mon (MF — J8—) HARKS, НПК 
qb. 


явзя 


® i120. 


11.23 HUGHES 875 ENN 


ie] RÀ 
RESMI. de HUS AE IE S И, НП НОМ. MAEA 
АЖ ЭЕ ERE — PRAE Jil He ROE ЕШ Ж. 


RHR 


ӨП ЧА FH TE ХИН. WAA кти ка]. бех, EKKKruskal-Wallistt 
ЖЮ. RIETI AO, КЕМЕЛ ӨЛЕ: 


> kruskal.test(x ~ f) 


Ш, EREK, РЕ АНАН. ана рін. (IRI, p < 0.05% 
жавтщизанаоконаит я, Tip > 0.057 Uti НЕИЈНЕНА. 








ию 
ЖЖ. LORD CBAR ВАВ ЈЕЛЕ S) ЖЗ, ЕГО RUE Ж. (E TE 
АРНЕ ри. 
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9596 family-wise confidence level 














E СЕ 
4 ы-- 
T T T T — 
-ол 00 ол 02 оз 04 
Differences in mean levels of wday 











вит: ЗАРЯ 


Kruskal-Wallis Е Jj 3:2 Witt Еж, Gk РА ТЕЕ. Мит, 
снишава Ж. FURIA Б 9 А ЖЖ Жш О ПИЈЕ. 
Kruskal-WallisktW: , 


CRPE, BUG НОВИНА MAK. ЗАЛИВУ (р<0.05) ЗЕТИ 
ахат, HERRE UMRE RA ЈЕ кн. 


HE, TEIS9AT FFF E "HART ME, ВАЖНА РЖ, ЖАЙТ 
АЕ. m. SEL А ТОРУ РА ОР Ж? шити ZAK 
ж. тәте. ПЕВА ж. 


ӨЛЕ Т ААДА Е, REA ELCHE ФЕ. вот РБ, ERR 
жентек 
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> print(nidtern) 
[1] 0.8182 0.6818 0.5114 0.6705 0.6818 0.9545 0.9091 0.9659 1.0000 0.7273 
[11] 0.7727 0.7273 0.6364 0.6250 0.6932 0.6932 0.0000 0.8750 0.8068 0.9432 


2 (ete.) 

[91] 0.9006 0.7029 0.9171 0.9628 

> print(hw) 
(1144234443443314433434443244443234404444 
[39] 44444444444444444442444441444444444244 
(771 342244441304404344 


Levels: 01234 


в, йлы CRAAEGDPAESCUSOS) на ЕЛЕЕ— ТАР. Ниве ЖИВ 
p ffl АЕ ИН АДА Коза ЕО. 


МАНИ АЕ: ЗЕН НЕНА ЕНИ k, ЕЛЕН ЖА ИРА ЧЕН A cR 
+. МИ, кожена. РЈ ВАН Кгозка каша, RT ЖШ 
ЧЕРИ (3.99 x 10 *R#0.000 036 69) ; 
> kruskal.test(midterm ~ hw) 
Kruskal-Wallis rank sum test 


data: midterm by ће 
Kruskal-Wallis chi-squared = 25.6813, df < 4, p-value = 3.669e-05 


MPR, EPE NE (AH плен PE MERO НЕЕ МАЈИ EAr ИИО ЭЕ ЯЕ, UE E4 
ШОО? иж, имарет. жк. CERN h (EACH 
шағару атала Я" ЕЛИ. ФЕН ЖЕНИЛ LENE 
ЗЕНА ИСЕН, ПОЧВА: ШЕНІ ЖӨН. OSH F. РАЈЕ КИПАР 
Балалар ааа W fE ЗЕНА. RUE, RIIH MATE: 
FERME МЕКЕ ВОН STRE Eh p REE, ВАВА. 


11.24 ERP E MEL BRE! 


Te] RR 
мана HUS, TORE REE А ЕЖЕНИН Ж. 


мат 


Жапоха ПЕНЕВ “ЛЕН Sor CHER E EREN: 


> anova(si, m2) 
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RE, тато ЕДЕ НН 155 ИО НЕ ЛУНЕ. а апоу ан а На —ЛрШ. RERA, 
р<005 RC BUDE E EREN, тр>0о5 ах ЕЗШЕ. 


Wie 
кои зе, RA A апомаж РЕНЕ 2 rk. ВИЛЕ TTE НИЯ 
бе У пао С 


ЖЕҢЕР ЫЛЫМ, #Жапоуайї— БРИЖ: Лея. b, 
ЛЕ 0, DREMEL HERK, HM, HEEREN, 


РТР, ЕБВИЕРИЗРЕЗЕДЕННОЙ, SAME, BRERA 
№, ille FE ква ТЕПН НОЖ НУ 


Wie Ra лнн Сааи А 


> m c la(y ~ u) 
> ва <- Im(y ~ u + v) 
> m3 c lafy ~u + v + м) 


m2 (fJ) та [01062 RATEN f апома ЕЖЕ 2017, ЗАЖИМ 00.003 587, 


> anova(mi, ma] 
Analysis of Variance Table 


Model 1: y ~u 

Model 2: y ~u +v 
Res 

1 28 108.968 

27 79.138 1 29.83 10.177 0.003587 ** 





RSS Df бия of Sq Е PrOF) 





Signif. codes: 0 '*** 0.001 
Bhp RRRS EHR, И, Ното тз, RITU ipi 50.057 44: 


> anova(m2, m3) 
Analysis of Variance Table 





0.01 "+" 0.05 


Model 1: y ~u + v 
Model 2: y “u + v+ w 

Res.Df RSS Df Sum of Sq Е PrOF) 
1o 27 79.138 
2 26 68.606 1 10.442 3.9522 0.05744 . 


Signif. codes: o '***' 0.001 "**' 0.01 "&' 0.05 °." ол 771 


pli fic ЕЗИПВУВИЯО 05. НЕ, EBE RIE {Н TO 050% R, Жп, "URGE 
dit. TERAN HEBER 
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E BETA AME, ВИДЕО ТО О Ва ХЕ. ЧВИНТапоуа, АН. 
Жи MONEE Е ЗЕ И AMR, ЖИН НЯ ДЕБ OR, H 
ЛЕВ: ДОЛЕ ЖЛ T BURG EC НЕ МУ ЖЖ ЕЖЕ, 2 МОЛ RHEE TAA 
и. 
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#12 


НЕЗ 





ня 


ЖЖ rit kis слабо UC EHI UFR, (Н ПЕ НИЈЕ 
ЗНА, RTA THEA MHEN E. 


12.1 Ва КА 


та 
увиват ink. Ма, EEEREN. 


ШЕ 
РО HDI JL c ER s 
» head(x) 


WT ап De fef ROG Л. RFT СНЕ. 


> 16) 


ию 
ан глюмижеакахв, нзъпжаснилкив Е. ШНИНегаЖ 
URNA Nd 


323 


> head(dfrn) 

x y E 
1 0.7533110 0.57562846 -0.1710760 
2 2.014354] 0.83312274 0.3698584 
З -0.3551345 0.57471542 2.0132348 
4 2.0281678 0.78945319 -0.5378854 
5 -2.2168745 0.01758024 1.344879 
6 0.7583962 -1.78214755 2.2848990 


ШЛИ Саз ЛАЖНЕ НАМ. ХИ, ПА ІНЕН 
1012087: 


> tail(dfrm) 

x y : 
10115 -0.0314354 -0.74988291 -0.2048963 
10116 -0.4779001 0.93407510 1.0509977 
10117 -1.1314402 1.89308417 1.7207972 
10118 0.4891881 -1.20792811 -1.4630227 
10119 1.2349013 -0.09615198 -0.9887513 
10120 -1.3763834 -2.25309628 0.996106 








PRHA 
ЗЕРЕН, WB 0001215. 


12.2 TRE НЙН 


в 
{нйн Ж. RIE HIER, ЕЕЕ, 


МАЛ 


ЖЕ width DL BE FER HH BI eb Ic P ЭН. 
> options(widthenuscols) 


vie 
ЖММК, ВВА ноян. заа Н БЕО Ж. ПОЕНЕ ВЕ ВО 
ТАИЕВА Н ТЕСИН, за AIRE, (ТҮЙ. IUD CR BEXBERTULIEA ERE 
в. 
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ЧИ, dn S204 FR, 
> options(width-120) 


a fob t k W # Bewidthi ER EH 84 12051. 


BUERAZUA204- Fifi ESO ДЕ TK ВОЉЕ. VHS (OO ЛЕЯ И КОМЕ. 


PASA 


БИЛЕ РЕНЕ. 


12.3 НЕЧА 


вм 
лимит, EER E, 


МАЛ 
MERRICK EE 


> x € арі # Prints nothing 
> (ке зла) # Prints assigned value 
[1] 0.3183099 


не 


ЖИТ, Чили, КАН. жп, А ИЗА 


MEREM, CREAM, KRAH ЕЙ. 


55H 

BYE $ ХЕТ. 
12.4 ТЯ] Ж 
[27 
УБРЕ Ж ЖОЕ НЕ Т рКа. 


МАЛ 


LH Hc rowSums ЖЕ (7 890 
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> хомбияв(н) 


UT Ксо15ит« Ж ЯН: 


> colsuns(a) 


Te 

jk jk ЛОВА Е, въжета, ЭРА. (lin, тоз te 
GM, RKTT, ЕЖА, daily. prod JN EMAN, ЗАП 
ПАВЕЛ: 


> daily.prod 
Widgets Gadgets Thingys 
Mon аз 167 182 
Te зз 193 166 
Wed 183 190 ат 
ты a5 за ал 
ва ам 181 186 
> tolSuns(daily.prod) 
Widgets Gadgets Thingys 
80 892 85 
> roSuns (daily. prod) 
Mon Tue Wed Thu Fri. 
528 512 543 485 521 


ik dE A BOK ЛМ. (rik PORE fh. BRITT LAPE rn Me E ЖӨБ, D 
STE RE HESA ҮН ЖАНАШ АЖ 


> rbind(daily.prod, Totals«colSums(daily.prod)) 
Widgets Gadgets Thingys 

Mon 179 167 12 

Te 2153 293 166 

Wed 183 190 170 

Tu із 261 an 

Fri ам 181 186 

Totals 822 8920 #75 


12.5 ве] НЕ 


ад 
ИАА, а ФЕЯ. 
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ЕН 


ЗА ER сіта сіе ВЕ В], REHEK ER. 


Wie 

HAF, do РАНИ, жадвтепюхлаланн: 
» print(x) 
[а] -0.3142317 2.4033751 -0.7182640 -1.7606110 -1.1252812 -0.7195406 1,3102240 
[8] 0.4518985 0.1521774 0.6533708 
» print(y) 
[1] -0.9473355 -1.0710863 -0.1760594 1.8720502 -0.5103384 1.4388904 1.1531710 
[8] -0.1548398 -0.2599055 0.4713668 


WM RA сера лаве ETHER, SITA, ERR: 
> print(cbind(x,y)) 








x y 
[1,] -0.3142317 
(2,1 2.4033751 
[3,] -0.7182640 
[4,] -1.7606110 
[5,] -1.1252812 -0.5103384 
[6,] -0.7195406 1.4388904 


[7,] 1.3102240 1.1531710 
[8,] 0.4518985 -0.1548398 
[9,] 0.1521774 
[10,] 0.6533708 








Ки H PERAR. EHRE У РИ: 


rint (cbind(x, y, Totalexey)) 

x y ты 
[1,] -0.3142317 -0.9473355 -1.2615672 
[2,] 2.4033751 -1.0710863 1.3322888 
[3,] -0.7182640 -0.1760594 -0.8943233 
[4,] -1.7606110 1.8720502 0.1114392 
5,1 -1.1252812 -0.5103384 -1.6356196 
[6,] -0.7195406 1.4388904 0.7193499 
[7,] 1.3102240 1.1531710 2.4633949 
[8,] 0.4518985 -0.1548398 0.2970587 
(9,1 0.1521774 -0.2599055 -0.1077281 
[10,] 0.6533708 0.4713668 1.1247376 
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12.6 ЕО 


в 
HAE, желания НИЯ. НЕЖИН. 


МАЛ 
сие, RUMET BIE, Нешщргеака, CH HiME, icut 
ЧИН. аза — АЧААР, ЖЖ (TR) RAEN: 


> f <= cut(x, breaks) 





We 
алта та y АРА Lit. +: 
[LL DEM 


ELAH, 2280534 iE 





> x <= тпоги(1000) 
> breaks <- c(-3)-2,-1, 
> f <= eut(x, breaks) 


2,3) 





ЕЛИ, EGET ЯНА. ИИ иппоту ио ОА, В 
АЖ, ЗАНАТИ ЕТ: 
> sumary(f) 
(53,-21 62:1] C10] (o,1] (1,2] (2,3] m's 
a8 a9 348 035 ау а 2 


ЗАЛЕ И ӨМ, CAMANA, Xe ЧС (e SLE URL] 


ЗИП Label sA Bde ВСЕ LAI 4 PRA Re k 6 "Hl ili A AE ЙЕР НО A HO У 
Bel. 


> f € cut(x, breaks, labelssc("Bottos", "Low", "Neg", "Pos", "High", "Top*)) 
ЭЧЕ, Жзиттатув ARNELA: 


Bottom Low Neg Pos High Top M's 
18 19 348 355 137 n 2 
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ХЕ ЕЕ 
Dm Ж, АЛЕ Ж, яюнтаз и. TR RELER, GG ANTA 
жї, зандижнат. #-лазатоннала, IT dole 7 
4. гакиллантва, КУБУ RET 2066. ХФ, EREET- 
жаханжяж, Өде} ЛЛ ЕЕ, RBXAXTRXSSEKUY 
| 98%, 20и й, казину њи. 





12.7 ЗЕН (АНИГЕ 
am 
HA, АИ ТЕА ЛЕНИ, TRA CI wg. 
MAHR 
тасы ККК EK IRI E: 
> vec <- с(100,90,80,70,60,50,40,30,20,10) 
» match(80, vec) 


шз 
KI, matchil 3, ЪЩвуесфводжичавия. 
не 


ЖИН ЖОМ RE, Reb fi PERITI ROC P 412 9E which mi nffiwhich. 


max: 


> vec <- c(100,90,80,70,60,50,40,30,20,10) 


> which.min(vec) 4 Position of smallest elesent 
[1] 10 
> Mhich.max(vec) 8 Position of largest elesent 
Ша 


жа ЊЕ И 128. 
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12.8 f fn EXE — HETE 


T] RR 
BEER HUGE TI Mob Реж. 


RHR 


MAER, En ТЕРЕНИ ATRUE, — НУВ АВНЕ ЕЈ 
M, ВАВ Ті 


> М seq along(v) % n == 0] 


үне 

ЗА Jt E ЖӨНІНЕ; ЖИП SER E бр Ron ЖИ — 1 MR en HE 
зе along(v)/E HE ТЖ vit) ЕСЕЛІ, ӘНІ TF1:length(v). ВИП THE 
SUERTE MICE RE: 


seq along(v) XX n 
TAG REHAB FONR: 
seq along(v) 1X n == о 


ПАЛЕ Уза, КУНЫ ЛЕ ЗЕ НЕ Ви e E Ж TRUE, ПАН ЖЖ! 
VEAR ЛЖ 


М sea along(v) X% n == 0 ] 


aU Us FU ВО CRAT EGER Руския, БРЕНА ЗАЦИИ, JH — FEKE НА 
ЖЕ. ше. 


МС (FALSE, TRUE) 1 


ПОБУНА ЕЖ ACR. ПАУН Т. RERA WAAR H eR а 
AUS IE HEP ЭЕМ. ЖЕЙН. ЗАЧИН T — MRIH, EJEFALSE. TRUE, 
FALSE, TRUE, FALSE, TRUES. BLA, ЖОЙ REVISE? TEKE. 


E E 


BXUUESSE SX РАИ. 
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12.9 SES вез] МЕ а ва ЛА 


те] ЕД 

ЖИ ш уйы, ШЕЛ ЖЕНЕ НН TROR ЛЫН ЖЖ ттар 
mintv,, wi), min(v;, w), min(v,, w), ... 

des 


max(v,, Wı), max(v;, но), max(vy, м)... 


Е 


ВА АЕ RUIMICRDER RC, 2 BI rh Ei ерл (у w) Жрпах(м му HE 


> pain(i:5, 5:1) 4 Find the elesent-by-elenent minimum 
22321 
> pmax(1:5, 5:1) # Find the elesent-by-elesent maximum 
1154345 


ий 

ARIA ЖН ЖЕНЕ ЬШ ВЕЛЕ АШЫ. — UD MERE SE in Qv) 
nax(v,w). KERERE: тілу, ЧИС, Ягу ВМ ДЕЛИ, БН, 
max (v, w) MAH vw BL Mf 


ЇбртїпїїртахК {ТЕ ЕП @ Ж, ED ЕЕН ЖИНИ МЕЖЕ КИЙ. ENTE 
тый, кюй Аж. 


RT LA HOFF RUIN ртіп рта хто ЛЯ НЕ. LUE h kv 4 iE CI fh 
їй, юкижи лит. іп. 


> v <- psax(v, 0) 


аи, RRA TE CHE — 4 KE He БУНИН, Ја pmaxi Љ- ТЕЖЊЕ 
BEN, Жину eA ТЕЖА КІ. 


> v <= cs 72, 3, -4, 5, -6, 7) 
> pnax(v,0) 
[11030507 


FRE, pninfüpmaxt/7/SELEREUe ЕВА ЧЕ ЛК. ЕТЕГЕН £ FRN 
M. РОННИ. 
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PRSA 


AX £X RHINITE, 2124552. 


12.10 ^E LE ТАР На 


[2571 
ЖИТТЕК SA RT, жен е КЛАЈН А, ВАЉАН КЛА. 


ЕЈ 


И Atexpand. grid. ix W£füglE PIA T. 


> expand.grid(f, в) 


не 
"Filio fee ONE T Pi IN 7—18 T-sidesfUAR — MEn, ЖА T-facesftt — 
AT (ВЕ ЕАО): 


> sides <- factor(c("Heads", "Tails*)) 
> faces <- factor(c(1 pip", paste(2:6, "pips"))) 


"ПДК ехрапа. grid ВЕЗАНЕ — Е Н — KEE ТИИ I ЛИНА; 


> expand. grid(faces, sides) 
Vari Мата 
1 1 pip Heads 
2 2 pips Heads 
3 3 pips Heads 
4 4 pips Heads 
5 5 pips Heads 
6 6 pips Heads 
т 1 pip Tails 
8 2 pips Tails 
э з pips Tails 
10 4 pips Tails 
33 5 pips Tails 
12 6 pips Tails 


ян, RATURAREN TERNARA: 
> expand.grid(faces, faces) 
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Vari Vari 
1 1 pipi pip 
2 2 pips 1 pip 
3 3 pips 1 pip 
4 4 pips 1 pip 
5 5 pips 1 pip 
6 6 pips 1 pip 
7 1 pip 2 pips 
8 2 pips 2 pips 


1с.) 

34 4 pips 6 pips 

35 5 pips 6 pips 

36 6 pips 6 pips 
ЕАН. ВИНО. 
ЗЕНА SERM -F НИЗ ИЧЕТ ЛОВА, Hexpand.gri db ата = 
WAWAN T. 


зяза 
MRE ERNIE, EZ ИТАН TCR. 


12.11 ЛЕ 


217 
ТУНИ НЕ, (UE CAREER. ПОЛОВА, Bn, RA 
та 


нат 


алты РАНИ I GER, БЕДИ THESE E НЕ Еа f ст ЖЖ 
вй. 


> mean(as.matrix(dfra)) 


Ert TH ЕЕРЕЕ Л. ТЕЖИНИ қ, Wifiiüftas.vector(as. 
matrix(dfrm)). 
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не 
MERANER, (нови APPS гг P RR 


» daily.prod 

Widgets Gadgets Thingys 
Mon 19 167 182 
Te 153 зз 166 
Wed 183 1090 10 
Tu аз 261 ап 
ні 14 181 16 


ПАРЕТО ARAR AFER, С Т AK: 
> mean(daily.prod) 


Widgets Gadgets Thingys 
164.4 178.4 15. 


хатта ааа лала Ж. {НЧ MERC MUS ВИ 
M, Friede BHCHR — HDE: 


> mean(as.matrix(daily.prod)) 
[1] 172.6 


XP Jj ih AE Rb PI 2 & M UC e ate MG, тантал ЧОКА ТЕЗУ 
жк BMRA, зазязантвва) гейм, E E И PUR RERO T 
qv. 


PRSA 


ИРЕН, 18533. 


12.12 xiii HERE 


в 
ЖА ВАНН. POR ЗЕН НЕН RUEDA UE THREE RE 


МАЛ 

ЧИН Жогдве А і НЕЛЕ ВЕЕ, PIG BUB EMF Ж ЗЕ ННВ НЕМА 
> dfrm <- dfra[order(dfrm$key),] 

XE, аб ВЕ, mdfrm$key HHF BT p|. 

334 | #12% 





Wit 
Нот Рене, ТРОН НЕ. HT HBTEHUTREE — ЭМО. 
БИІ T Bee, i PETI SEHR Л OH CHF: 


> print(dfrm) 
month day outcose 
ти Win 
8 10 — Lose 
825 Tie 
62 Tie 
та Min 


Hülitorder t Ue IAN ARH ЈА В BETTER ERI; 


> order(dfru$sonth) 
[1] 41523 


ТЕ НИ SE BMC, ifi Ed frmsnonth В HE sb HUS TIC ӘНІ Fin, ИГІЛІК 
Бат ВОЕН: 
> dfrn[order (dfrn$nonth), ] 


month day outcose 
627 Tie 


4 
1 тъ ма 
5 72 Wn 
2 8 10 Lose 
з 835 Tie 


ERIGI NIAE а J PDC SE НЕНИЯ, 


12.13 ЗИ Я НЕЕ 


вм 
ЖЗ РАНЕНИЕ, "ЕВРЕИ FIO NOU BT 


вал 


ВАВА SHE ЯНЬ НИД. Жотбет 2% BM. КДУ, ЕЕ ГУА 
ВАНИЕ: 


> dfrm <- dfrn[order(déru$key1,dfraskey2), ] 
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iie 

Е? ф, Но тает ЕНЕ НЕК. RITTERA 
Ж#Н Жотдет, iiitorderik HX ^ BUMDHERT A: GbTHTRECR HEF XEF PIETER 
НИЖА. 


ЗЕМ, TEECTSTEUHordertimonthfüdayiX Mi FE FT HET : 


> dfrn[order(dfrm$aonth, dfrm$day),] 
month day outcome 
m пе 

топ ма 

тою ма 

8 10 lose 

55 пе 


ЖЕЛ ВА HP, BIERRA ЛЕЯ K IGIER ННЯ. 


BRS 


S 1212. 


12.14 BREE RIE 


2127 
“AEH НЕ. АЕ АЕН ве, 


УЗ 


ЖЕЛЕ јата биће ЖЕНЕМИ, ILLER H UA: 
» attributes(x) «- NULL 
Wii ratto E RE, EERE NULL, СВЕН RUE: 
> attr(x, "attributeNase") <- NULL 
Не 
КАНЕ ІЗГІ RHE. WEE- HM ЕВИЯ, аз RE. 


ЛЕТ ЛЕНЕ, Lirik IIR Me, BU Red Leif RHEE 
жы, EAH TAANE. 
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Ten DU Натье (x) str Qo ER НЕ. 


ранни ЛЕ. ВЕНА. PHA —1- Шаан, JELEN 
жи, ЖЕЛЕ, Сатана. 
> т <- ln(resp ~ pred) 
> slope << соев) 
> slope 
pred 
1.011960 


HRN islopelt, КЕЙЙН "рге". CE hlm ІНІН ЖІ КВА (HAE 
ЛЕЕ Шртед® R) . RTLA Hs lope A IB SO E ИУ НАЈ, Eos 
"names" RHE: 

> str(slope) 

Naned num 1.01 

= attr(*, "names")e chr "pred" 


BRN RHEE NN, RREZE, ИН A IR th. 


> attributes(slope) <- NULL а Strip off all attributes 


> str(slope) # Now the "names" attribute is gone 

num 1.01 

» slope # And the number prints cleanly without a label 
(1) 1.011960 


39b, ИП ККЕ RHE: 


> attr(slope, "names") <- NULL 





те. іше, ГС оживили A E, 
ЕО, Mie pik TEAR (RAR) . Ж, BRAR RE 
СЕБ), atq aqe канен. PILU E. 








RASA 


ЕРЕН, #8 70.12.15. 


12.15 RX BJ А 


ба 
ИНК, ROKR, ОСЕКЕ ЛЕ ТВ ВЕЗЕР. ТТЕ Е. 
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RORIS 


ОА став ДОК: 


> class) 


iM поде ЕРА ilis Se FEE, JE НЕЙ. 


> mode(x) 


авг Aa ТЕЗУ НИ Е: 


> stri) 


Wt 

амы, дил-так, зын, RARE: “ARAKEA? "ARE 
ЕЙ, iR GC PEZ РЦ. (Н ЖИК. HARE але ЮМ. 
BERK, МОРИН. СОРИА АГА), ЖЕ. 


LERKA (ЕНЕМ) {ЕДК МН ЕБІН Jj o fol Бі, ЗИ 
па; 

> m <- ішу) 

> print(n) 


an: 
In(formula + y ~ x) 


Coefficients: 
(Intercept) x 
ann 3.25 


RAM EHRE. RARER ЈЕ AMR. ERE, IR. № 
Mino gs 


> class(s) 
[3] 





TP mde — lm 3809027 fp. ЈЕВ. Ат, ПОВЕРИО US MUR 
ковано (вж. EPE, ДЕЗЕ НЕ) ЖЕЛЕ. ЭНДЕ Ито еж ЕВРЕ 
Ж, ЛИНЕ): 


> mode(m) 
[1] "list" 
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Ж Жл гю. ЗЕ ато НЕГЕ на а ПРЕ AE. М, Rin 
8k 4526092630 ФК: 


> names(m) 

[1] "coefficients" “residuals” “effects” — “rank”  "ftted.values" 
[6] "assign" "qr" "df.residual" "xlevels" — "call" 

[11] "terns" "повел" 


ЭВ СОЮ “ЖС. итп нж, акт. 


> m$coeficients 
(Intercept) x 
17.722623 — 3.249677 


ва, епваняк. RAMH TX, 


ада ара а g, (Hik ВЕЛЕ. RBs t ЕАН В ЛЕНЕ (IAE ER V (E 
BJ. поднася T-12- BS. 


9112-1: ik wg —4 Ж ЊЕ 
> str(m) 
List of 12 
$ coefficients : Named num [1:2] 17.72 3.25 
..= attr(*, "nanes*)« chr [1:2] "(Intercept)" "x" 
$ residuals : Named num (1: 
.= attr(*, "nanes")« chr [1:30] "1 
$ effects : Named num 1 -372.443 155.463 -( 64: 2.418 16.552 . 
..= attr(*, "names")= chr [1:30] "(Intercept)" "x" =" 
$ rank ВАЗА 
$ tted.values: Named num (1:30) 17.9 23.9 26.8 32.2 30 ... 
attr(*, "nanes")« chr [1:30] 71 
$ assign ге [1:2] 02 
заг list of 5 
e$ qr : num (1:30, 1:2] -5.477 0.183 0.183 0.183 0.183 ... 
attr(*, "dimnanes")List of 2 
























LL atas "assign)e int [1:2] 01 
2:8 qraux: num [1:2] 1.18 1.23 

2$ pivot: int [1:2] 12 

e$ tol : num 16-07 

e rank : int 2 

+= attr(*, "class")e chr "qr" 
$ df.residual : 
$ xlevels 
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attr(*, "variables")- language list(y, x) 
attr(*, "factors")= int [2:2, 1] 0 1 





"tern.labels")e chr "x" 
"order")s int 1 
"intercept")e int 1 
"response")- int 1 
mvironsent")«cenvironsent: R Globaltno: 
"predvars")« language list(y, x) 

› "dataclasses")« Named chr [1:2] "mumeric" "numeric 
= attr(*, "nases")» chr [1:2] "y 
1 data. frame; 30 obs. of 2 variables: 
пия [1:30] 5.41 19.94 23.92 32.43 44.26... 

mum [1:30] 0.0478 1.9086 2.7999 4.4676 3.7649 ... 
attr(*, "terns")«Classes "terms', ‘formula’ length 3 у ~ 
~ attr(*, "variables")» language list(y, x) 

ittr(*, "factors")« int (1:2, 1] 0 1 

attr(*, "dimnanes")sList of 2 

18: chr [1:2] y 
дек 
ittr(*, "term.labels*)« chr “x” 

+ attr(*, "order")e int 1 

ittr(*, intercept"). int 1 

~ attr(*, "response")« int 1 

attr(*, ".Environsent")«cenvironsent: R_GlobalEnv> 
redvars")= language list(y, x) 

Naned chr [1:2] "numeric" "numeric" 
“names")= chr [1:2] "y" "x" 

ats Glass") chr "Ia 





























ЕЕ, зет BUR Ж, АЖ НЕН AES CEA ВЕНЕ. Kf CR ЖЕНЕ 


ALLENA LL та. 
ВЕНЕРЕ ERI, class, тодейїзїт# iR $e А. 


12.16 (&83iz (TRY [B] 
вм 


MU EE % ЫЫ И] ЖЕ ТВО Ка. Gan, ОНУ, ЗЕН ЖИНИНЕ 


жж, Зевс ве, АЕН МЗ, 
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КЕЗ 


Hiltsystem. іледі КЕН Ж БАН. 
> system. tine(aLongRunningExpression) 
НЗ ЖЕ, НЕЕ еі. MINET EEEREN: 


АСРОР 
ЗЕНКИСРОВЊЕ 


ЖӨСРІИМІН 
ERRA ОЕА) СРИВ 


Д 
Lid 


не 
(ва ОН 4: 610 ооо 0007568 TE ЗЕ НЕ ПЖ RISTA EY fil; 


> Systes.tine(sus(rnora(10000000))) 
[2] 3.06 0.01 3.14 м № 


Зуѕ ет. Еі тей ti W ZER Е ЛИОСРОВНИ 03.060, ME KELEH ASCP URE fiil 00.01 
в, EAMETSA. (МАША РЕВ, ОХРИ, ОАЗЕ 
нм.) 


НЕЛИ, вимт, ЖЕЛП "СРИНИН RECU R 0.4851, ПОЕНИ 
ЗЕТЕ, жәен ні, RMR ЭСЕ АССРО, 


12.17 HRI E FRESE А. 


lL 
НААНА ЛУВР Мн. (АВНЕ. 


BRIR 


ЯН ВИ suppressMessage(. . .)suppressWarnings(. 


> SuppressHessage(annoyingFunction()) 
> suppressuWarnings (annoyingFunction()) 
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Wit 
REN Каа. test. RT, "ipt Je Роди, ее ЧА ВЕН В, Win 
ШІЛ 


> library(tseries) 
> adf.test(x) 


Augsented Dickey-Fuller Test 


даа: x 
Dickey-Fuller = -4.3188, Lag order = 4, p-value = 0.01 
alternative hypothesis: stationary 


Warning message: 
In adf.test(x) : p-value smaller than printed p-value 


дін, ESTER S (EsuppressWarnings(.. .) PWH oc (Mx РАК: 
> suppressHarnings (adf. test(x)) 
Augmented Dickey-Fuller Test 
data: x 


Dickey-Fuller < -4.3188, Lag order = 4, p-value = 0.01 
alternative hypothesis: stationary 


EE, WHAT. КАНОНЕ ТУГ Т ТТТ ТАКТ 
tkwarnings ЕНИН ЗК ЧП. 

» warnings() 

Varning message: 

In adf.test(x) : p-value smaller than printed p-value 


ЗНА “ME” (RRE) . НЕКИ. ак, ПА 
8, ТРЖИШНА Ө, ЖИВЕЙ, fEsuppressMessage() ATI Т iz i i, 
поени. 


жібі 


# йй BcoptionsX- FIEIRA REMIT. 


12.18 MII rh EUER NMSA 


вм 
MRR кран. каже ева I EAR, НАВОЗ, 








за | жож 


Е 


ЧЕМ МАНЯ Г, ЯНА AR. ЗОРУ ЖЕНИО, наоса RHEE 
A297 OE B ARD Ж. 


> do.call(function, list) 


ию 
ORCI кк, BEEN, с НЯ Т, RARA: 


> vec <- C(1, 3, 5, 7, 9) 
> mean(vec) 


05 


MRE HIKER, 5:2, A96 КЖ, ППИ — S ЖЛ Ж, ше 
Biss 

> numbers <- list(1, 3, 5, 7, 9) 

» mean(numbers) 

[1] м 

Warning message: 

In mean.default(numbers) : argument is not numeric or logical: returning НА 


Silénumber ЙО, MARKERA, РАСА АЛИ НЕЬ) — 1 MEF HL. 
Их: 


> mean(unlist(numbers)) 
05 


ЧИЖ STK FMR ka Col Bed EPIO) м. МОДА MERCI Т. Зее А ЕМ 
eH XU, ik L. EENAA PNIA TEBEA: 


> lists «= list(colzslist(7,8,9), colz-list(70,80,90), coljelist(700,800,900)) 


TERTII РВИ Н Ной ERE. Htc bindi OER, (LSU PL 
REI KEI TEMNA: 


> chind(lists) 
lists 
coli List,3 
соја List,3 
сөз List,3 


ЖЖ ВАТ Нип 5 REESE, WA 3:4 IRE GERI A ЖЕ: 
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> chind(unlist(lists)) 
bil 
chi 7 
coi 8 
сода 9 
coli 70 
cola 80 
cola 90 
colai 700 
со132 800 
со1зз 900 


МӘЗ АИ ао. сай, СВЯТ, AUGUE NOR TI cbind: 


> do.call(chind, lists) 
coli col2 cola 
(517 тю 70 
[2,18 во во 
[3,79 90 900 


МОНЕ ЕЖ, ХИА do. call! FW cbinddt — ВЕ: 
> cbind(lists[[1]], lists[[2]], lists[[3]]) 
(ај 2] 3] 
[17 7 т 
[2,]8 во 800 
(3,79 90 900 


ПОРТОА ЖЖ, ПЕЛЕ. ОЖЕНИО, do.cal HERARN K 
жюзияк, Ка ЕОНИ. 


ЖАН Тао са ЖЖ. ЖЖ до.са1 ПОЉЕ THIF LRT БЕЈ 
Ж. HHS АИ. 


PASA 


Ж XT TEBGBÓR M in HART А: И @ 533. 


12.19 ЕХ Но лай 


із 
KERE CL SERE, кке, жәй. 
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RRR 


RU MERE SERFS X.. HHEH лоша. ана T I MEKE 
Ж. ДОНОР о Sos И}. 


We 

RES ЛЕ, STELLE GE XIRA CHEER. военен (X...) 
Шаа EE DH виса ОЕ VETE, оженва 
ЖЕРАР RUE Xx. 


жинай, КАТОД ОПЕ ИИО А АР, LTM ОЕ ИЕ, X. 
УЧЕН <- function(x,margin) x + c(-1,01)*margin. 
Sx X-X пика. FMRI + (1.96 x 15), ТОВ Fiol 
кейін. 
> 100 Ж-Ж (1.9645) 
[2] 70.6 129.4 


иж. чак TARF, питания. EUREEN. 


ЖЕНИЯ тата тш Н Е ТІЛІГІН Movil 
T CERE Ж BE ШЇ e M FT B, MD к oT ЖИЕН ЛЕ И — 
n. 


> "Ж <- function(s1,52) paste(s1,52,seps"") 
> "Hello" дай "world" 

[1] "HelloWorld* 

> "limits" XX round(qnorm(1-0.05/2), 2) 

[1] "linite1.96" 





ЖАН атна ET, КЕН КЕЛН. ЕНЕЛ ERIE 
EMA GE КРАЈ ВК ТО AGE ЖЕТИЛЕ НИМА В. 


BU HL" E ХЕ REE HIR 9 JE ЕА R2- h ӨС Hixan yide PE sc 
вит). ПИЈЕ ИО. ЕР ТА ВЕР О ТТ aw 
ВИЛЕ. Фани. папа E if Ez FH X+ — x" (000 Tb T 
49, ЗНАНА. 


> 100 Ye-X 1.9615 
[1] 1470.6 1529.4 
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КАЛЕ (100 X«—X 1.96) * 15. 


sis 


W£ XTW, WELKE, ХРЕН X T RIVER, ME 
AR jik212. 
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13: 


Ed orm DIK 





A MER Л.Л БЕЛИМ Herb ПО уін, ЗАВЕДЕ И АНА 


КЭК BA) ТЕКУ AE RI k EP, ЖЖ In LUE, RAI OCT 4 NGHE BEL EHE 
Ж. ВЕЗИ MUSCLE Е С ELALI, АП KU 0 (1108 A REESE T. 
fF. ЧЕЛ ANEA BELA НОВЕ НЕ Ж, ik LU IHE RE АЕК КО ICR A NICA 
Хк їй! EER, 


13.1 ВИМЕ ВЕЖЕ — T 88:5: B UR 


із 
ФНО), BERA o ER BOR DU RI oC 


МАЛ 


орбіті ге "дм МВ. "UHR НИ E ЛЕЛЕ НА CERTI А ОЛЕ SC 
Ж (Ши ЕГЕ). 


> optimize(f, lower-lowerBound, upper-upperBound) 
ЕТЕНЕ. BEH Hoptimizel # Btmaximums TRUE : 


> optimize(f, lower«lowerBound, upper«upperBound, saximum-TRUE) 


ий 

оре та гей А й i CR КИН СЕМИ. CERESE REE ж 
йзгй ВСТО A ЛЕ БАДАМ. HR ERKA ARE ВМА поето. ет 
РЕЖ £ ЫН Boa - 2:0 368 — Axe SIE МЕ. 


> f <= function(x) 3%4 - 23 + 302 - 4x + 5 
> optimize(f, 1омег=-20, upper=20) 

Snininun 

[1] 0.5972778 


Sobjective. 
[3] 3.636756 


бЖоритгеб ЕНИ ЈЕ —1- ЗСК: Жефтілітит КӘНЕ ВОС Е 
ЛМЕ. objective i 8 {Е1& #4 Bos SII Ж ЛЫЙ. 


An S Ил ометћирретну Җ Л, "rok TEMERE GIN GUI, UL ICI НЫНА, 
An 3 r WE fF Га I MERE ТЫ, виж тати. SEXO И 
lowers-1000fluppers1000, ЕНЕВО, ABERE ERI ® Ck MIC NEK 
Mit, Кор те UR Fl — ЛМК. 


ВИ 


#1132. 


13.2 ҖЕ нй Ж ХЕ ЭВ 


в 
HUFEN (ПЕЋИ ЗЕН) ПИЩЕ, MEE E i E OCC] CR RICCA UC А 
AE CUI GC, 


мал 


Ж орі $ cis Be IE FH BUIMC, НЕЗ орет, AE MA 
желе, «БИЯ н Bc fff) £ Dt. 


> optin(startingPoint, f) 
n gs 8 Как, BEE Е Ксотто1. 
> optin(startingPoint, +, control-list(fnscale«-1)) 
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ию 

н орі НЕ ЕНИ, MINER оре а оре та гей ñ ЕЈ — K 
Te (ВИЗ). оре тен A ЗЕЛЕНИ жар, АЛИЕН 
кеша ERU, ИОН I SRI. БА Жори AE RO WU e REG. 
fE Ë ЗЕЛЕНУ E крие HR c МА. 


КШ Н —/` Мор ЖД АЕ. ИЛА E О сй З а e 
гота) В+е НЕК, Заарда жив, c АНЕ S D UMORE, ЕТО 
ЛМЕ ERE, MEHAN, ЖАО нео, 


Eiz- (x жау 
Fil W АЕ ХИН ЛОМ ERI, "HAE Eso, UB MOE T Жї 


Ж. ЖЕНИ e Ea ГАР HEU РЕТЕЛ Ric vf Ж — ний ИУС ЖО 
fim. 


+ <= function(v) (а с v1]; b <- v[2] # "Unpack" v, giving a and b 
| = (ж жауы) 


ІЛ Bopti а. ПЕНН, RABUNA: 
> optin(c(1,1), f) 
ar 


[1] 10.0072591 0.6997801 


$value 
[1] 1.26311 


counts. 
function gradient 

485 м 
convergence 
Шо 


Snessage 
[n 


оре ти ВИА; — "convergence. ЕЗЙ НИ НА А Жортіт PURI T Mik 
ИМА. ЖАН 0, Mopti ATi: GW HARAR. EEE 
Il, convergencefiofi ЖЖ Ж ЗЕЕ ВИ, Жі сопметвепсе й №1, U Кор im 
Жа (BIRARE) o ТВ CIE БИИ ЕЙГЕ STRE SL. 


ТЕЖИ, ва Морал ЗЕ HRA Т Mihi, еа = 10.0181 b = 0.70088 
ВОКАЛИ. 
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Э орі аг, UU S Edge duo LLATAI, СИЕ HE 
тейле]. hl PLI Нн B А ЗЕН Imt 


оре пи 2 нн мен, IDEN. An RU IO ЖЕ ЈЕ 
ж, жак тт ис нос A, РЕНО EE GU RIS РИВНЕ E 
MERIK ЛИМА (Ж Яй Жл. ТЕЖЕ PUR EEE RK Ма. 
GRACE д. — ВЕЖЕ. МЕЛАНИ TUR, УЮН kta. R, ik 
шал, канален RRA, (НЕСИЕ ЕН. 


RASA 


ВЫХ ЭВ ТИ: OCC ГА. ЗЕК ЗАСКА МАЈЕ % ВЕТ ИО “Optimization 
and Mathematical Programming" #4), RELIRA (utp://cran.r-priject.org! 
webfviews/Optimization-html) „ 


13.3 НАНИЖЕ [5] H: 


в 
ПОЕНИ МЕРЕН ВРБЕ И ИДЕЈЕ. 


WRITE 


пете реп, "REI — 4 & fr 7 ERIK, XW TCR уа lue sh 
vectors, ТТИ MAER KEBEN НИЕ Ж. 


не 
ПБ ВИЕ, Bln Aik зен. 


> fbmat 
ба] [5,2] 
1, o 1 


2] 1 а 
ЗРЕНИЕ, ние вели Fl & fr BAEREN ЕЕ R fE KAI: 


> eigen(fibmat) 
values 
[1] 3.618034 -0.618034 
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1,1] L2] 
.5257311 -0.8506508 
.8506508 0.5257311 


Mleigen(fibmat )$valuesR ft eigen(fibnat)$vectors A Fl Jt ЖЕТ ЗЕ НУ AC RR 


13.4 x BY A T 


i 
ВНР АВК, ЖЕНЫ. 


RHR 
вета ргсопр, БИВШИ РН ARS ARWEN "+" BME 
иж, ARABI еа, Min 


> r <- prconp( ~ x + y + z) 
> sumary(r) 


не 
кїў ЖК ВНЖ АРА РА Л; ИЕ ERD DARK: А prcompfüprincomp. WIES 
А Жргсопр РИО СИСА НЕ, АННАН. 


КЕНЕШ 987 (Principal Components Analysis, РСА) НЕРВА cn Mc. 
Шаа A TEN SERE, MENRE ERZ I ME A: Mor ЭНА Т ВН 
нд В. ін, АПАЕ ВЕЗЕ НЕ ДЕЈАН. MBA ERI ІЗГІ ЫН tea Е 
ЖЕНА, dm AG Ae иам, ПЕВА РРА ЕЈ ВЕЗЕ МОЈЕ FER REFN, BD 
2 Bal STEIN — 1 t) CO ВЕЗЕ 


ERDA HEIRAT. кан ДЕНЬЯ BIA ksi, MEE or ERR — 1 f re EDO 
жї (Пужах). ЮЛЯ. ERA A FEAR UU HOUR. 
EHR, ASIE сто“ А 

> r <- prconp( = x + y) 

> print(r) 

Standard deviations: 

[1] 0.3724471 0.1306414 


Rotation: 

жа Pca 
X -0.5312726 -0.8472010 
y -0.8472010 0.5312726 
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ИВ THEN, CAII ERA НК ВОЯ ЭЕ (RHE) НАЯ. 


> sumary(r) 
Importance of components: 
Ра а 


Standard deviation 0.372 0.131 
Proportion of Variance 
Cumulative Proportion 


ЕЖА, ЛЕЖА TOME, 0 — БОНА ТИХИХ. В 
ж, BP ORO kW Т ЖЁБ) Ж. 


AW ва ртсопр/і, FZ ER рое (г) Ж E ЗЕ МИ 77 2809 7/18, WT GR icpredict(r) 
жиен Е» Е. 


SRS 
39 — I E H ERA AE OCT. ЕЖЛІБ139. ЖШУепаМезЖІКіріеу (Modern 
Applied Staticstic with S-Plus) (Springer) — ЧР ЖАЙ) ER И. 


13.5 (Bj IE 3 5/9 


J 
WIE ЗЕЕ НВ САННИ, orte Moo ЕЛЬНЯ. 


ШЫ УЕЗ 


МЕН йрт сотр МНН EA Я. MAA ЖИЗ ЗЕ ВАНН ВИН CRT 
ав. 





> r <- preom( = x ey) 
э ана С ныма ا‎ 1 
> intercept <- r$center[2] - slope*r$center[1 


ию 

ТЕЗЕ ЖЖ ӘБИ ЛЖ (Total Least Squares, TLS) , 

ЖЕЉЕ (Ordinary Least Squares, OLS) # ~E: ЕЕ, ВП 
YER n(yox). ERF ЕЖА осу) f иза E. CHED tE T GR RUIN LS UE ln 


MEEK, ПІЗ Шул, AAEE (807735) жинтау, TERES 
REEK, Wi, ЕНЕ, 





352 | nam 


виза UT GECHHEXERSE AIR M-E ay RER, GR LR 
dE ИВА Ep AKARE, ШЕ, PRI3- 10 AE FH I] — BE 
НДА Лару), ТАЙСУН МЕЛЕ ЕАО ИЕ А, ВЫ, FREER 
жи, SERIA AIL. 

ПЕ S IEEIST3- Lab, ЕВЕ НЕ БИН, Ай МЕНЕНЕ 


ЖШ БІН ICH IRL iF ЕЖ. ik HEHE, БАН тека k ЛМЕ 
вж. 








PP 








9 











813-1; Bii RERUIEXEUS 
жжвеженеп ке ARPER. НА, ЖЕЖ»: 


> F €- ртсовр( ~ x + y) 
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ЈНА ВА: 

> slope <- r$rotation[2,1] / r$rotation[1,1] 
Bc Apo ИШЕ: 

> intercept <- r$center[2] - slope*r$center[i] 


AK WP “ЖЖ” ИЛЕБИН, НЕ ТЕХ Н T gl TO RE fJ ЕН, ТРН 
ЗАК 8 W С MEET ME ИП ВИННОЙ. i138 T EM А h 
ЖИ. 


жіне 
Эй 1З АМЕ Т ЕЖУ. 13-1988 f Vincent 2оопекупай ТАЯНИЯ ВАН. 
МХМ EAE (http;l/zoonek2 free fr/UNIX/48_R/09 html) , 


13.6 ВНЕ ЕЕ 


T] RÀ 
нілін ЖЖ (ни) 2 Раба НИЕ “НЫЕ”. ВЕ el 
(АННУ « 


RHR 


алата ыл ала алал аталы ста 





> d c disto) в Compute distances between observations 
> ће < helust(4) 8 Form hierarchical clusters 
> clust <- cutree(hc, ken) 8 Organize them into the n largest clusters 


Hi Rclustib УЖИ у п В О Е, E EUCH Exp RMMK, MW 
ШОС CRT IRL ЖИ. 


Wit 
dist ИЖИ > ЕЖ. BRIA AEE Е НЕЕ ЖИК IL LEEK, ВИЕ НЕ 
КРВНУ ВЕЈН. БТН ЕБ Қ, ERLE PEIE fe E REK. 


пси НРА ИЕ ЖИЕ ИЕ &—1- АКЕ ЖЫ. ILLS filhclusthith НА 
МЕ РАНЕ АКДН, ik hl POUR Е. daB 13-2 B. 
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Cluster Dendrogram 





10 
1 














4 ШІ 

















8013-2; BRIER 


W, вЖситгеей MIR ЖЫНЫН Ж. (ci HIE ЕЕ £ P NOR. НІНЕ 
VEZ iB OR RUBER ЯНИЕ, ЖЖ ЖМИ, AT CHI HK 
AU COR UC ERR FB SUI Ч 


à HERE I Лева СНА NOR UL U CER Ж, ЛЕНЕ ROO IRM TE & 9 Ht Ж. 
Ш, в ЛУЖИ 73. 0, ЗЕБИ. 


> means <- sample(c(-3,0,43), 99, replacesTRUE) 
> X <- rnorm(99, mean-means) 


HFH, PROLA лала FCD IE Cc dc Is EE Rb, T Ji c e RE D. 
жүй, ПАПЕН) . РПАЗЕЊЕ, KIL RRMA HOE F-3. овна, 


> ылау», factories, > 
-3.0151424 -0.2238356 27602507 
AMTRAK, KEHRA PZ ниви: 


> d e dist(x) 
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АНЕ ИЕ: 

> ће <- helust(d) 
SEES НЕ. LAS, типин джж B, KEMA T г 
ERI. КЕРНЕ T 

> clust <- cutree(hc, k«3) 
Jic Lus tfe RE HERU, ве ЗЕНИЦА Е BERG IO RMA, t 
жн T ONU USUS CUBO. ТТІ NC NEAN 


> head(clust,20) 
[1] 122212332 31323212113 


ЖЖ, АННАН ЖИВИ (8.76.5). 


> tapply(x, clust, mean) 
3.1899159 -2.6992682 0.136368 
AR dE а RT T ЈЕЗАВЕ ЖН АЕ UI MIS], 8380039460 
722, -ТЖ жік 027, 95 — 08039180932. CHEROSUCIS 4 ОН. 
ИИО Е). 3 ТЕ RORIS 0S5 ROGO ЖШ, 0364448 LIN 
ASME FA ER BAET LAWEI ТА 


> plot(x ~ factor(seans), main«"Original Clusters", xlabs"Cluster Mean") 

> plot(x ~ factor(clust), main-"Identifed Clusters", xlabe"Cluster Number") 
113-305 6 ЗОРЕ лала А A T ИУ НИВ B, DICHA IARE 
әже, NOR НН ИЯ Ж. 


1613-3019] Т —fti Belg, (Lii cd is tio PESTDUB Р £ о ee Ж#Н KR. No 
ЕНЕН НЕ ДЕ ® RS з ГМИИ, Ad i s ЕПОВИ ЗОВИ > i y 
вж. 


RESA 


ЖОИЕ ЖЕЕ ЖЕН АО IARE, ENRE, Иййтс1ш5 pt Т ИВ. 
Былар аа 
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4.682). = 
|= J = 
لم‎ т 
эго а EH 
Cluster Mean Cluster Number 
a) b) 
813-3. RXR 
13.7 плет GERA) 
am 
FREDA FTSE AME БІН E Зу — A E UEM НЫН ORI ВИНО, 
MAHR 


ТАЈНИ в Мет. ЗЕВС И familysbinomial В FE IST, Қ Ж» “Тілін. 
> <- glm(b ~ ха + ха + x3, familysbinomial) 


ЗАН, БАР ЖКН f. CDRCGECGTRUERIFALSE, 084) , ха. xz RERUM. 
ж, 


FTCA EEH SUMA e HITAAN EA predict K fM BE ЕО. 
> dfrn <- data. frase(xi-volue, X2»value, Xi-value) 
> predict(n, type-"response", newdata=éfra) 
не 
EEN, —ÀCHORISTN ДЕ GU LH. Min, ЗЕРО ВЕНЕ ТӨБЕ 
ЗЕ I? ЖА, БИ BAKI HL? ЖӨН ПАН ЖАНА ае REGE AE, кан: 
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зоват, ERATED EARS “Ж” ж “ЖИ” MER. сенат 
HAERE e STRE ЊЕНО ВЕЖЕ 


ЧЕМ ред син, ЖИП Ж Жтуре-"теропве”, А Жргейс аи ~E 
жин, ЖИ, ОН РЕ ИОН, REA талан адама 


АЕҒағамауі4 Ac HUE) (Practical Regression and ANOVA Using R) — 1, АНТ ~A 
BM — ЛЕВЕ RS DET. Ж рата. RS БЕН, ИО tes thp 
TRUE, ВАЗЕ ВЕ ЕРЕ НЕВИННИ HH. (Body Mass Index, BMI) , Farawayft- 
PHETH, REX ERR ЕЛЬ АН ЕПН: 

(pima, packages" faraway”) 

factor(pima$test) 

gin(b ~ diastolic + bmi, familysbinosial, dataepima) 

MUS) IC АМ mL ОН td ias tolicfübmiff)pif(/ 950.8050, FERINA 
Пенета @ Жз, 





> summary (n) 


Call: 
glm(fornula 
Deviance Residual. 
Min 10 Median 30 Мах 
71.9128 -0.9180 -0.6848 1.2336 2.7417 





diastolic + bmi, family < binomial, data = pina) 





Coefficients: 

Estimate Std. Error z value Pr(>|z|) 
(Intercept) -3.629553 0.468176 -7.753 9.01e-15 *** 
diastolic -0.001096 0.004432 -0.247 0.805 
bmi 0.094130 0.012298 7.654 1.95e-14 *** 





Signif. codes: o 796 0,001 "** о.о: "€ 0.05 S ва "а 
(Dispersion parameter for binomial family taken to be 1) 
Null deviance: 993.48 on 767 degrees of freedom 
Residual deviance: 920.65 on 765 degrees of freedom 
AIC: 926.65 
Number of Fisher Scoring iterations: 4 
TT DUCI оті ӨО. РАСА STEAM Sr — MLB : 
> m.red <- glm(b ~ bmi, family-binosial, dataspima) 


"Fili Ez X RAP - 4 ih Е BR IRE (вмин2з2) ӨЛМЕЙ 
век. 
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> newdata <- data.frase(bsi-32.0) 
> predict(n.red, types"response", newdata-newdata) 


1 
0.3332689 


REEN, ВЕКИ 0033.39, IHESTELLEREBM HER 904 FTA AE A th ЖЕЕ RUN 
Jb RED BOR 54.9%: 


> newdata <- data.frase(bsi-quantile(pias$bei, .90)) 
> predict(m.red, types"response", newdatasnewdata) 
90% 


0.5486215 


EL a) 


FENA, ЕС А СУЗА AE а АЖА ҮЕ, ЖЕ 
тесни, 20 ЕУ И 


13.8 А ВИЗА 


T] Ri 
Ati WW ВНИЗ ЕЕ HR К. BULE Ж ЕКИН ИЕЛИ ПСИ, 


WORT 


HR K бок Боо c tt IEN S f i fkit ВО i МӘНІН. 


> library(boot) 
> bootfun <- function(data, indices) ( 

+ 8... calculate statistic using doto[indices] . . . 
+ return(statistic) 

+) 

> reps <- boot(deta, bootfun, R-999) 


3k Й аата JE ROG f Ж, CTE ID TES Ж B ale ny K. ИРЕНЕ 
MR Боот фи KAE: дата НІКІ К, indices ЛЖИ, ЕЛЖА 
LI d DELLI 


Жоп, БЕН boot cioe fA LE EL ВЕНУ T CRT 


> boot.ci(reps, typesc("perc","bca")) 
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не 

ЧЕТ ЛАГЕРЕ НЕ, (RAE (ВИП АО ЛЕВЕ TERCIO AEH. ИГЕ QUAE E AR IT. 
dii. ЯВ 2 REKE? мазен, ЗАП АИ ЕТО ЈЕНЕ ВАС 
ІҢ (Confidence Interval, CI) , L39166) ЖА (й 09, CTENAR. tes RE 
W. вик, PH WJ KUR S БЕНИ, ЯЖАНАНЕ. ЭКШН, 
СИС АА kit жй И ЖАТА РЕНЕ K. ATH HH RAK 
ШЕ, MERERI АЗ, BOUE {ЕЙ МАРЗА ЕА ОС ПА MO AER ASSUM, ВВ 
ИЛА АС Па]. A BOTE T FEBR AEG EEUU ВА — БЕЛОМ 
жітімі. 


1. fE BOR IO FI K HRABLE A P| hh R N ЈЕ АОС IR (fJ WE fy А М) 
dt. 


2. БЕНИНА ВЫВЕЗЕНЫ, ОЉА А МС. 

3. (СМЕЛЕ) МАЊА 1330023, HAMEL аман. 

4. MIDAS A ВМИ RK il. 

ЖДЕ ЖЯ АГАВ А, ЭЛЕН ОАЭ ЕАС НАОСА. A A ERI 
НМ РА ЕЈС 59 97.5 E A 5 ЖО 95% ИЧА М, BE 
НМ ВЕНЬ ЕЕ. МАЕК T (np fl HE НЕД TEAS, i PULCRA 


РАПН. MARE TELA f] ZA AREA шз, НЕА ВА STE A H~ 
варварски. 


ШЕГІН Bi 13.4 ИВ E GE 2 FL HR ИО TR EVI A IESU ВЕТ. (Е774513.4. 
th, EMIL T ЛАМА, el 125 ЛЕГЕ АСС Ge 


иж, ВАЖИ 
> stat <- function(data, indices) ( 





+ T <- prcomp( ~ x + y, data-data, subset«indices) 
+ slope <- r$rotation[2,1] / r$rotation[1,1] 
+ return(slope) 


EE, КИМ Жіпдісез ИЕН ЗЕЕ TE, МО TREN 
паж. 


FP, RfIHFW9994 REN А ват. (E37 1:13 An HEP у, ix ne 6 
HAARE h. 


> boot.data <- data.frame(xex, у-у) 
> reps <- boot(boot.data, stat, R=999) 
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Бағала жала ара ЖЕМЕ ЕЗІ К К ЖОЙ ЮН ЫЕ 
OW Hc, оо. ciN f B НИНА). Боо. сіз а T ERTS 
ШЖК, TURENE әуре zT EE HJ Wk. ЗЕЕ АИИ, boot.ci 
ЖӨЕ BUSES ERA RR, 


> boot.ci(reps, typesc("perc","bca")) 
BOOTSTRAP CONFIDENCE INTERVAL CALCULATIONS 
Based on 999 bootstrap replicates 


ош: 
boot.ci(boot.out = reps, type = c("perc", "bca")) 
Intervals : 

level Percentile вса 


95% ( 1.144, 2.277 ) ( 1.123, 2.270) 
Calculations and Intervals on Original Scale 


ER, ВИНЕ #8 уре-с("регс","Бса"), ЖЕ T iMi f oo MAA E НИЙ: 
аншалы алата тал Rf F У. RFR, WEN RU 
тиін. 


d, AARAA що и моста ик, 72419 WIRE (1.144, 2:277) 01.123, 
2.270). 3% АЖ, Жк RERO Dol VOR ИО A SERIE HRS, TUI ш An 
Té BE WERE ЖОК —%, dn ЛЕНЕ сведено ЕЕ, ІНЕН 
Hi, РИМИНИ Е. ан, RAE HL CET ME UAE (RE Me HE tc m 
ARIS, ЖИНИЕКИС 123, 2.270). 


WAWA F. Боб сі 959 ЧАС М, (STER it LE W соп АКР 
Див, їйї IKIO Fh HC [А]: 


> boot.ci(reps, typesc("perc","bca"), conf«0.90) 


RASA 


ЖЖ, жайыз. XT A ЖЕЛИНИНЕ, TULYEfronHTibshirani 
WI (An Introduction to Bootstrap) (Chapman & Hal/CRC) --%, 


13.9 AFA 


Тед 
ШЕР ДЕГІ ЕЕ 
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НАЂЕ 


ВЕН Ғасбапаі, ERA ЕЛЕ ЖАНЕ C АНИЈЕ РЕВ РК. 
> factanal(data, factorsen) 


Aj Gn f, ЖКТЕ ШЕН Ева. ана IRE pH, НИЯ, ШЖ 
pliUIvF0.05, CUI РА КК, посвети НЕ НУЮ ВИА В, РАИ T 
0.05, ШНУР (RELE) eb IRL HIEMIS RU 8. 


ию 
Vi -T-2 о У ta NEAR е СЕООА T k ИЕ ТОГОА ПУСТ СОЛИ 
мъвюдаве. RN EEE Ar, вАеПОНЕНЕН АВ», Ж 
FEN AT. свиня F, шама НА АВР REESE IS IE, БА ПЕРА 
MAT. 


HFT Takik, RRENAREN, ЗРНО РЕНИ REDA TMM, 
FHKE T AR ti BEAR ME DR THIEME, ERA ЗА EKE RSE 
Jj EREK ТБН. 


34 2p 80669 БР E f c CE WR c ЗЕ ЭМИ, ее. EBEA 
ЕДИ И STEM UT HEC e REGI Fr tik k НРК ANO, RT E 
ИРЕН ДЕЗ А PEOR ВОЗА WIRT ID AIT RR 


пя EREP TF EHE RK, MRK I E NC fa] fi ACRI, (r 
азақ? ЖИВЫ ЛУНЕ. СЕЧЕНИИ S 


Vi-T-2 CHER RRR, БЕД РРА НЕ. VIERTEL JEU H 
ЖИА КРАН. МЕРА ОНЕ. 


АНИ, завера SLUT RAE FC, ЖЕНЕ T ИВОВ. REA 12 
жа ИЮ ЖЫЛ H Wie SRL тара алта алыр талас e HORE, 42321 
fJ % RM, НН, атанады SLUT ер алар ан FRU. DD 
Ж, вжзънтживепктване? ORT ATR, HZ ULLAS т. 
вал ню, ARES EUR ТИ НЮ. MRE £ CT. VERE f] JE 
ване. 


их, БОНА ДУР Vira SE IC, ЖӘЕ аз ва, Сама MEUM Л 
ЖИВИНЕ. MERDEER, Жк: НЕ НИКИ SEXE EEG. 


> plot(prconp(di£fs)) 
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1813-436 дофина ят, миз Tm, МЕХ T CB EAE, & 
к-ті. REMAR, FRIED TJ ВО ТЕНОР o 





Variances of Principal Components 


2 


Е aou 


Component 











1813-4, УЕ 
> factanal(diffs, factors=2) 
оп: 
factanal(x = diffs, factors = 2) 


| (ete) 


Test of the hypothesis that 2 factors are sufficient. 

The chi square statistic is 102.25 on 43 degrees of freedom. 

The p-value is 9.83е-07 
ТАНА HE RIK RR РЕВЕ РО (209.83х1077) , ВДВИПЯПО А КИН. Л) 
PARMA FER, БИЗЕ ИТ ЖӨН, BEK ИЯТ. FE 
ЖАННА THE 


> factanal(diffs, factors=3) 
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Эр 20,341, X-F0.05, АЗА Т, РЕН РАНА. АН 


Call: 
factanal(x = diffs, factors = 3) 


Uniquenesses 
APC BP BRY ОЖ HES RO NBL OXY SUN TOT 


0.005 0.509 0.299 0.162 0.150 0.207 0.321 0.265 0.098 0.185 0.257 0-155 


Loadings: 
Factori Factor? Factorà 
АРС 0.286 0.176 0.939 
ВР 0.212 0.150 0.651 
BRY 0.628 0.474 0.286 
СИХ 0.819 0.320 
HES 0.751 0.415 
MRO 0.721 0.396 
NBL 0.606 0.382 
OW 0.713 0.436 
SUN 0.394 0.847 
TOT 0.786 0.372 
МО 0.465 0.672 
XOM 0.833 0.218 





Factori Factor? Factors 
55 loadings 4.835 2.400 2.151 
Proportion Var 0.403 0.200 0.179 
Cumulative Var 0.403 0.603 0.782 





Test of the hypothesis that 3 factors are sufficient. 
The chi square statistic is 35.74 on 33 degrees of freedom. 
The p-value is 0.341 


$i M EMI: 


jk ЖАЙ ИЙИС ЛЕН РИВЕР EELS} 0.403. 0.200%10.179. "СТАН РЕЙ Jy ЕН 


Factori Factor2 Factory 
SS loadings 4.835 2.400 2.151 
Proportion Var 0.403 0.200 0.179 
Cumulative Var 0.403 0.603 0.782 


100.782, ОНЯ JE EC FU - 0.782 = 0.218, 


FoP, ПЕНА РАНА, WN TWB k EAK QUR. АВНЕ. М 


ВИННИ: 


Loadings: 
Factori Factor2 Factor 
АРС 0.286 0.176 0.939 
BP 0.212 0.150 0.651 
BRY 0.628 0.474 0.2% 
СУХ 0.819 0.320 0.253 
HES 0.751 0.415 0.338 





364 


| suam 


MRO 0.721 0.396 0.342 

NBL 0.606 0.382 0.406 

OXY 0.713 0.436 0.192 

SUN 0.394 0.847 0.172 

TOT 0.786 0.372 0.241 

VLO 0.465 0.672 0.275 

ХОН 0.833 0.218 0.322 
Ш-Н іа (MRR) : АРС. ВР. BRY%. ВОЉЕН A хан 
тай, А РЕТ ® RID 10033. GX BOR ЕН Рава, ви 
ПЕНЕН ОЗЕ ЕГО АЭИ ЧА Р. (E HRAT, uoi 


BRR, Хану Rete fe. ЗА TER 8 ES A 


WU TMT НЕО, ГЕЛЕ ЕЗИ М (0.847) ж EV L Ot AM 
(0.672) (Е — N T ERK, ifi CHE SUAE REEL, "EXON ЗЕБО I VLO. 
ЖОМ, БУРЫ АЗЫ ЖАН (ніп, H), Btik. 


ЖАМАН E SH GS TR. ЮЖАРСВ (0.939) Tl ЗИ ВРУ 
(0.651) . ТЕЖО ФИНЕ, ЖИРО — A a T Wto GA SEC TIR 
виза. CORRE трие, TERIS, вв ЖЕНА 
TBP, TPIS FETHA FIA PCE SN E HEC ih ROE di E EUN, "id 
НИНЕ ВРНАРСОВАН, РАЛИН qe k fE, 


BZ. КЕРНИ ЕТТІ 
* Бима VLO 

* АРС filand BP 

` X4 


ИРЕ ЕЕ Ж. GERD TEES ПА РИО РАО 
жи. 


E I 
ТЕМА, MISSA. 
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#14 


SEES EU 





ня 


СЛЕВА УВА ТАРА ИЗ ТО УВА РАС ТОМ СИ 
жахновнажитев. ПЕЛЕ SORA ВЕРНА ЛАЗЕ À ЛВЛ И. 


ДЕКАН ЛЕЙ ЗУ ве. ЕВ О Гар ДЕ зА НЕВЕ елек. (реж) . {E 
право НЕД ипо егер, MEARDERE, ЗОВЕ ВЕК У ЗА LU 
пак (EMO. EH ERE TATEA СВ). ЕР. 2 
ж. МНЕ, РИСТЕ И УЗ ТАИ СРЕД t СЕТ 
Ж. ХР ЖП ЖАЙ. RT, НА, Rep HEE TULA ЕЕ КЗ ЖЕ Ж 
МИЛЯ т.д. Тан C пал тілінін KR, EHRE 
MFM n А 


FRE BLUE PRÉ оо R # xt ба ЖЕНИ ЕЙ ОЙ. заводи И, fib 
я ЖБ НАЯ век. НЯ 2 ir tb E нета ра FRE lily p| € 
жк. 





та. тоо, СЗО Т гоо ОВ fr 25. Шз ДЕЗЕ НЁ тоо UD, (с 
Жа. IERARH, zoo ВЕСА РВОМ, ПМЕ ЖЖЖ 
њу. 





SRE E A ЖЯ УНН АЕО Ж, 8065Ж. REKU 5 ВЕЗЕ ЕНЕН 
HAD, ЕОНИ ЕВА! РЕН. ЗНАНА (НА) EAE 
MAR, ЭК. 
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В Н KARHE 

Док те стао НИК ЖЗ Н АЙ EIE. {ЕКЕН ЖУАН @ z оой! 
xt SPOS IIE, zoo % fix t st Ж ГЕ ЗЕ НЕ ВАННА ЛЕ ЙИНЕ Ж) Н АЙ. 
RAMEE, "плет нз н EH. БІНЕ. ЛЧ ен. НЕ 
NAME EM (Жан. H. Ж). ПАН ЯНИЕ AER НИВОЕ, света 
HREM AM, BA RERE (Win, 2012163)]3H 18:102. ) . 


шж ЕЕ Ж H WR HOW, A THRE, КНН ШЕННЕ H IRL, 
RIERA, ЖЫ, МИАН НЫЕ H B A ЕЕ GTI RE iE 


PASA 
RAWEA Wi BR 0k ft tu kb tri ЕЙТ, EER “ERWEE (Task 
Review) EE ИЯ SEH E bh ИЛЕ ЙЭ ВК He ta (http:l/cran.r-project.orgiwebi 


views/TimesSeries-html) . 


14.1 RREA) 


T] RR 
НЕЕ — BORER ИЕ, 


RRR 


Мета гооо хе 560. АЕ Ж ТЕЛ Рана ЛЕЙН КИЙНН. ARH THES, 
А С ЖК. LUDERE НЕ, дъйегевиниз н ден и 
РИА, EA FID Oe Ob — zootik: 


> library(zoo) 
> ts во, dt) 


lik ts: 


> library(xts) 
>< xts(x, dt) 


AAR Ја] БАН НА, ЕГШ а. гоо flas .xts KIL: 


as.zoo(ts) 


Tetsft zool. 





HIRI 
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as.xts(ts) 
НА ЖЕН. 


ий 
к DH ЛЕТИ ДЕЛАЊА елдерінін, ПДВ ЕЛ (НЕ ооб 
xts НЕМ IRL тенізі, ФП ХК ВЕРЕ ЖК СНВ FAI 
na. 
зж ОДЕСА Ие 25 2 БИБА ВЕНЕ, —4- AE HIERO LIC, Ax, ВЖ 


житин, BIA AERA RH, іа ае, CA H MM R НЯ 
lil, zool hf Hift zoolE X РА МЕНА № — тоо : 


> ts <- zoo(x, dt) 
RIDE, xts Ga хөй Be ЙЯ РЕНН: — xt ERR 
> ts e xts(x, dt) 
H Wii S] Me d t 1, zoo ta fxts ой ЕФ НИЯ. 


zoo 
ЧАУРЕ i PF, (поакеж ig. POSIXCCH RR. МЕРИ. 

xts 
93:9] LAUER JE HEUS Н ЭЙ ЖУАН, (dA Datextik, POSIXCUH iu fllchron 
МИ, шой уеатпоп. yearqtrÉldateTimeX. Н Рхїз@ 9; 
ЗОТ ТАТ ОТОК ЬЕ, РАДА ОТИУ Ж Hoz oo бо P 


ПЕТИ ЇНЇ f Moot, “ta 1вМ Ж 9120104 SKORA, "раке 
HEARS, 


> prices c- «0138-45, 130.85, 130.00, 129.55, 20:88) 

> dates <- as.Date(c(72010-01-04", "2010-01-05", "2010-01-06", 

72010-014 -07","2010-01-08")) 

> зва.ау c- zoo(prices, dates) 

> print(iba. daily) 

2010-01-04 2010-01-05 2010-01-06 2010-01-07 2010-01-08 
132.45 — 130.85 — 130.00 — 129.55 130.85 


жк, F—TBCFIEIBMEEARUGEPPOSU LOT, жаякжюниа в E E 12:00109 мм 


Ж. АЯ козолна, вена РАНЕН, ІНІН ЖЕ)200.000277 ТВЛМН, ВИД. 
н. 19:30 29. S/N, Ji ДЕНИ 249.500 278/41, СЖ. КР FB. 
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> prices <- c(131.18, 131.20, 131.17, 131.15, 131.17) 
> seconds <- c(9.5, 9.500278, 9.500556, 9.500833, 9.501111) 
> ibm.sec <- zoo(prices, seconds) 

> print(ibs.sec) 

9.5 9.5003 9.5006 9.5008 9.5011 

131.18 131.20 131.17 131.15 131.17 





Lii i еби BE РИ HERI, CH IRE IRE FE p| te e ЖП — lk. ЖЕ, 200% 
«назад Фона, RETEA, ЈАНЕ S МЕНИ АИ 
ТЕМЕ Л Blei, іс аст, Ud ЕВИЯ Tb ЭСИНЕ ЕВ STRE $C 
МА, Blin: 


> ts <- zoo(dfrm, dt) # OR: ts <- xts(dfrm, dt) 


ЗФД FET RMS E MIE (RH ІНІН. 
HW 8 tə pr r 00B Bl F P| Кр Ее. iE, Nro fg — 
ЖИНДЕНЕ, ЖЕ ОВО) ЖЕСЕ, ИВОВ: 145. 


ЗДАНИИ ye pik la fr И {Ехо @ Ext Er. BA АТОЙ Ен сотедата ЖИВЕЛИ 
FAIR. iil coredatailk ТОРО Nic ЕРЕ 


> coredata(ibs. daily) 
[4] 132.45 130.85 130.00 0.00 129.55 


) жад 
OT СТ 





Ab STU Fi Be indexi БІМІН ЛЕ ЯЙ) Н АЙ Ж REY il : 


> index(ibm. daily) 
[1] "2010-01-04" "2010-01-05" "2010-01-06" "2010-01-07" "2010-01-08" 






RAxt 006 + ЖИД, (ихе 6 падение, тъжни КЕНИ 
ABS МЕЗА. БАВЕ JC HE] HEP e ia ACT y АНЕ се HREN, 


Жоо @##х+ 551 ЖЕНИ FEA B WA RATE SIDA HER € PROBE il ЕЯ 
знак, пан. Мит. Жо. AHF. живи. 99, 20088 
~A И теа4.200, IX I WURASCIDCHrRIM f] FP BR 


diri Bie, Bifizoon RERE, MESTEUS Hix t SH зет, KEE 
ТЕРЕНИ. 


ЖЕМІНЕ ЙО ЧУ Л.А, Жат ГУ ЛАР ARANHE, ЖП 
Е ана се А 
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mis] 

TERÍÜISCRAN EH z00 (Atp://cran.r-project.org/web/packagesizoo/) Wxt sth 
(http:licran.r-project.org/webipackages/xts/) ОЖРЕЖН, (nS. КЕЛИШ Ж. 
ИЩУ. ШЖ 8, SIDUREvignettei ВОЖЕНА UTR HI 
xt 


> vignette("zoo") 
> vignette(^xts") 


ЛУЖИН A ERAT GL ЕЯ Е timeSeriestz, 126032 BOR А А — Rmetricst 
AMR. 


14.2 AIR} PF 


в 
М-РН МЕНЕ. 


МАЛ 
Я Fzoot flit st fe, ЖАРЫ АН ЛА Ak ЖЫМ Н/Е, АПИЈА 
plot iA ROKAN ИЧА ИКЕМ ЕН. 





шй 4 AAO ЕЯ НИ, За Хоу, ПОД БЕЛА cp Lot (v, types" 1") RH 
plot. ts (v) Ж ШИМ НЕНІ. 


vie 

TENA ров НЕ гоой e iñ МРЕЖНЕ. ERMA ЦАН РЕЈ b, 
SIUE ЖОМ ЁЛЕ, dm ACE E ОМ ЕЗ, 962. STER НЕЕ a] ERR h 
Л, eG ERE НУ. 


figibm.infl — “гоо, EH WDE IF, — PF p| k IBM Z: 5]1970— 19804: 
НИИ, Я A PEPLAEUN E T ñ UEM NR REC ORTI MIRTH", m RUE 
ЗА iscreenseiiFT42 IH. R СЕГА] ERP ESI HA НЕЙ 


> plot(ibm.inf, screensei) 


#1: итинен тн, 104944100. moi wm 
FOREN © Еже. 
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ЖИЕН Hscreens-c(1,2) iE HAS JI R ЕР IUE b и DC УЛЕЙ. 

> plot(iba.inñ, screenssc(1,2)) 
БМТ, рони ee она, ТЕ КНИА ИЛИ ЗЕКЕ ASAE , (Н. 
ЖКН UL Bb ФАИ ST REL (DLE. #ПДЕЙИр1о йй) (ва 


Ш) ffxlab. ylabfümainffjlit, Muri ЗАА ЖЕЙ EU E U 40 РАВ 
щ. FAIRE SU IIS 14-1008 14-2 B R9 PEE 





ІВМ: Historical vs. Inflation-Adjusted 

















8 
8 
e 
z °] 
f з) 
81 
9 — u т т T 


Date 











8014-1. щпевттеки, #Ëtscreen=c(1, 2) 


Xlab-"Date* 
ylab-"Relative Price" 
main-"IBM: Historical vs. Infation-Adjusted" 


1ty-c("dotted*, "solid") 
ylim-range(coredata(ibm. inf)) 


# Plot the two time series in two plots 
plot(ibm.inf, screenssc(1,2), lty-lty, main«main, xlab=xlab, ylab-ylab, ylim-ylim) 


# Plot the two time series in one plot 
Plot(ibs.infü, screens-i, Ity-lty, main-main, xlabexlab, ylab-ylab) 
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IBM: Historical vs. Inflation-Adjusted 





140 














120 


Relative Price 
во 




















114-2; В-ВЫ, $ Bscreen-t 


# Add а legend 
Jegend(as.Date(* 
с 





-01-01"), мо, 
Inf-Mdj*), 
ltysc("dotted", "solid")) 
БУКВЕ T Рила (ЗИД ty) . LL, МЕН AGRAR, F 


ии. 9, нае, Ен га IUBE AE TCI БЫ (ylim) , ЗИЛ E (ET 
им. 


XK EAHA HT ЕВА, МЕН А а ЖЮ KURZE, ERU TE IS] — b 
Р-Н, Вай (E2015 22704E Клон, ІВМ ИЖС "ien T— 
п, ивакижо, BROKER Е FRET. 


RASA 


MRD SERE, quantmodt f f ЈАЈЕ НК, FCL Н ВР ПУНО ЖЕН. 
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14.3 TEHUR-E НО ЛИН ЕЕ НЕЖНО ЗА МИН 


в 
ТИ ТИ 


МАЛ 


НИ head ke ERE? LUI + 
» head(ts) 

Жатса жаб ізін. 
> tall ts) 

не 


АЖпеаб Жив ста ПИБ iR Be, CEMT HORN. ARAB ФЕ ВАК Wi 
МЕ. гоо, Махон. 


(а гоо, (rik ТІВМЕ KR ILE de s КЕ Me ЗЕ, 
WARA. PER ADR. BAER РУКА 
> head(iba) 


1970-01-02 1970-01-05 1970-01-06 1970-01-07 1970-01-08 1970-01-09 
364.75 368.25 368.50 368.75 369.50 369.00 


ааа САИ JL те 
> tail(iba) 


1979-12-21 1979-12-24 1979-12-26 1979-12-27 1979-12-28 1979-12-31 
64.00 бз 64.87 6.75 6425 64.37 





КЛЕТ, АЖпеадвия тапа & fA EF: тз ний СТАО ИСТУ 
ЕН О-О b FE £ ТИРА tail(ibm,20). 


xts ifo ih first fili Last s LUH Н ОУН ЖЕНЕ ЗЕЕ НИВА, "ТОН гет 
ЛАЖНЕ Н, ВИ. А АМН. 


> fust(as.xts(ibs), 73 weeks") 
bal 

1970-01-02 364.75 

1970-01-05 368.25 

1970-01-06 368.50 

1970-01-07 368.75 
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1970-01-08 369.50 
1970-01-09 369.00 
1970-01-12 367.75 
1970-01-13 374.13 





7 у 
> last(as.xts(ibm), "nonth") 

1,1] 
1979-12-03 65.00 
1979-12-04 65.37 
1979-12-05 65.75 


` (ete) 





П, 38 Ш ЖДИЛИйЖаз.хїз(1Ьп), zoo 80е, ЈАКИ хе SHEAR 
(firstikdflast) , БЕРЕШ, ЗАЩО "week" BEHREM, ПОЛЕ ЕИ 
AMIR, 


E) 


нуди Ez Hhelp(First.xts)fühelp(last.xts) ЖЕНА First KI Тав mir 
MxF. 


14.4 EMERY B] РЕЯ ЗЕ 


та 
титли 72225727178 


RHR 
ТОННИ гоо xt SHORTER, Наван гг RE EHRE 
Ta] ERAS нат Fs 





ts[i] 
Кос и ДУ СТО A 
50, 
ЗЕЕ Т СЕЛК ЕР ТОКУ ЈИ 
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SIDA EE HI SIME i] F АЈ 5138 AF100234 oe E PES. іп, BEAR № 
Date2$t, MILI: 


> ts[as.Date("yyyy-m-dd^)] 
SIEUR Н FAET RSI: 


> dates <- seq(startdate, enddate, increment) 
> ts[dates] 


МЕНІН twi поме LUE Fe (E TRH ITEM (НН AMZ) (THE IRAE 
кш. 


> uindou(ts, startestartdate, end«enddote) 


ию 
FUB ЙОМА НЯ. 





2010-01-05 2010-01-06 2010-01-07 2010-4 
132.45 130.55 130.00 129.55 


АЙЖАН ЕЖ (2702,9) H, ТОННИ f] HEU R А PI — 1 9 НИС: 
> iba.daily[2] 


2010-01-05 
130.85 


ТЕД АННЕ ЗА FE ML 


> iba.daily[2:4] 
2010-01-05 2010-01-06 2010-01-07 
130.85 130.00 129.55 


ЖЫ, HUE E IKKE RCE A ERIN, OR ЕТА Е Ми дра text (QL 
POSIXCtHSR) HESIR, е Ване (ЖЖРОБТКСЪННВ) METE: 
> ibe.daily[as.Date('2010-01-05")] 


2010-01-05 
130.85 





По абе з Ri FER GL PI BR : 


> dates <- seq(as.Date('2010-01-04'), as.Date('2010-01-08*), by«2) 
> ibn.daily[dates] 
2010-01-04 2010-01-06 2010-01-08 

13245 130.00 130.85 
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Ab STER ЕЕ Ez FH ER Bt windowi fE — НЕВЕ Н ЈИ AO RT ЯСЛИ, n 
> window(ibm.daily, start-as.Date('2010-01-05'), endcas.Date('2010-01-07')) 


2010-01-05 2010-01-06 2010-01-07 
130.85 130.00 129.55 


же 
Rixt s (248 T ЯТА ЖАНН NEARER, WEB Its aM 
жа, 


14.5 &3fF & TRIE] ЕЯ] 


T] RR 
ВАГОНИМА ЛЕЯ, РО JEU — MERERI, 


вал 
осми ЖЕЉНИ ЕЯ, РАЈА RE GR тетре т AIH: 

> merge(tsi, 152) 
ию 
24 98 A И ЕЖІЙЗІМ i SIRE, IENE FE IURIS, Чт, BUR ТІНІН 
ИЗ, —Л^АНВМА $111970—1979 ЧЕ 0982 ФЕН ffrik, Я —4 E ld BHAI He fr 
МИК (Consumer Price Index, CPI) „ И: 

> iba 


1970-01-02 1970-01-05 1970-01-06 1970-01-07 1970-01-08 1970-01-09 1970-01-12 
364.75 368.25 368.50 368.75 369.50 369.00 367.75 


| (ete.) 


1979-12-21 1979-12-24 1979-12-26 1979-12-27 1979-12-28 1979-12-31 
64.00 64.87 64.87 6075 64.25 64.37 
> cpi 


1970-01-01 1970-02-01 1970-03-01 1970-04-01 1970-05-01 1970-06-01 1970-07-01 
37.8 





38.2 38.5 38.6 38.8 39.0 
` (ete.) 
1979-05-01 1979-06-01 1979-07-01 1979-08-01 1979-09-01 1979-10-01 1979-11-01 
ns n3 ва 13.8 74.6 75-2 75.9 
1979-12-01 
76.7 
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вой, катнижянжаюнака, — A ЕН BR. УЖ BR. X 
ЖӘНЕ, FROCIO иа HERE k, REI RALIS AE JN 
Ж (ИН) ‚ ЖИРЕ ЖК тетвей , CELLER ВНАСЯ SERIE il ia 
E IE 


> merge(ibu,cpi) 





1 (ete) 


ЖАМИ СЕ, dilimergedt AKAA (RH HMH) : f IEE НО МЕЗИЈЕ 
ПАО ЈУДА ВС УУ HN АШ Ж Ж. "ИДВА z ооб) 
Hina. locf, JH RI — MALI ЖЕНЫ її ЛЕНУ Ac I 


> na. locf(nerge(ibm,cpi))) 





1 (ete) 


(осе “ЖОП ЖИНИ ЖА” . ) EE, ЕР МАШИ Т. РИМ, th 
Ей — О НИС (1970-01-01) ІВМ НЕ, па. поства T ik kia ak. 


ей Епа. loc FR й @ Bb Ez Ha 11=FALSE RET © ЕЗЖЕ ЖЕНА) rat y f) 
КИ ОД КИН ЗОРА ЕРАНИ. ВИП: 


> мее амо) 
Е 





: (ete) 
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ЭХ ИЯ НЕ ОСЕ RIT aT И ет ППИ 
ЕЖ. GERD TERUEL 1970464 ТН, ifi 381970418 1H.. ДІЛІН, 2 





ЖҮН ЖӘЛІН Sold ICH НОЖЕН, ТВ МЕГИ, ЭССР 
HENEK. mapa ТЕЗЕП H, 28145. 

14.6 ЖЕНЕ ЯЗ 

RA 

С ТИ EINK AEE ТУ ТИТ ТИ 
RHR 


ME LA MA ИЕ ТО НЕГЕ НИСО гоо, IE de OR HET HU HAE 
MIRAE, WC RMF k; 


> empty <- zoo dates) # 'dates' 15 vector of the missing dates 
> merge(ts, empty, аПетвие) 


ию 
Ríf)zoota — О Ег ооз @ Jj). LAE L4 118 s & Ж LN C 
УТИСАК СЕ АТЕИСТА 


MULUS FART 1970—1979 CPI ЖӨН, BG Es MEAE HONK: 


> cpi 
1970-01-01 1970-02-01 1970-03-01 1970-04-01 1970-05-01 1970-06-01 

37.8 38.0 38.2 38.5 38.6 38.8 
| (ек.) 


1979-07-01 1979-08-01 1979-09-01 1979-10-01 1979-11-01 1979-12-01 
ва 13.8 74.6 75-2 75.9 76.7 
Rk ft (X UB BR ГАРА НУ KS, JURE EAE RM. il Hal 6 А ICP DIU 
пан. ЖЖ, RUTH ЖЕ ЗУ МАНЕ, LA 1970—19794F 104646 НЛ 
МИ О гоо! R: 


> dates <- seq(fron-as.Date(71970-01-01"), to«as.Date(*1979-12-31"), by=1) 
> empty <- zoo(,dates) 





378 | Wax 


RE, Ане z ooxt SC си GI ИАЕА ЈЕ, ВИД ЕМА 


ін. 
> filled.cpi <- merge(cpi, empty, all-TRUE) 
> filled.cpi 
1970-01-01 1970-01-02 1970-01-03 1970-01-04 1970-01-05 1970-01-06 1970-01-07 


37. м 
3518-01-08 3870-01-09 2080-00-00. 197-61 1020-0013 1810-8-41 2и 


м м 
1970-01- 5 1970-01- ж 1970-01- п 1970-01- M 1970-01-19 1970-01-20 1970-01- т 
на м 


1970-01 z 1970-01- 2 1970-01- и 1970-01- зз атом 1970-01-47 1070-20. a 





1970-01-29 1970-01-30 1970-01-31 1970-02-01 1970-02-02 3970-02-03 1979-01-04 
м м м 38.0 
+ (etc.) 


@ о И ЛЕЯ! ИО 05 Н ДИ, kr А ПОЛЕТЕО ЕЕ 
южи, ЖӘНЕДЕ Ж. ИО — A OR ACTI ЕТ COR — У ЧИС, ix 
ILL | zoo 2 па. Лос te k, 


> Шей, срі <- na.locf(serpe(cpi, empty, all=TRUE)) 

> flled.cpi 

1970-01-01 1970-01-02 1970-01-03 1970-01-04 1970-01-05 1970-01-06 1970-01-07 
37 37.8 37.8 37.8 37.8 37.8 37.8 

1970-01-09 1970-01-10 1970-01-11 1970-01-12 1970-01-13 1970-01-14 
3 37.8 37.8 37.8 37.8 37.8 37.8 

1970-01-15 1970-01-16 1970-01-17 1970-01-18 1970-01-19 1970-01-20 1970-01-21 
37.8 37.8 37.8 37.8 37.8 37.8 

1970-01-22 1970-01-23 1970-01-24 1970-01-25 1970-01-26 1970-01-27 1970-01-28 
37.8 37.8 37.8 37.8 31.8 37.8 

1970-01-29 1970-01-30 1970-01-31 1970-02-01 1970-02-02 1970-02-03 1970-02-04 
37.8 37.8 37.8 38.0 38.0 38.0 38.0 











ев.) 


ТАТН®СРЫЕМИНИЕ37 8, БЕНЯ ЛОРИ Н АЯ, 27] LR И №380, 7% 
ИЕН Ж? А УДА ЗА И. ERR, или. ЯГА 
KARR HEIA SPIER (IBM A BERG нн Л CP TE EE H ВНЖ), TEA 
EMERARA KRAE. rb ЈЕ, НОВМ НВ, ICE 
ЕЙ ЖІВСРІНІМ, RI СРИ ЕЖЕ SE (ПЕЛЕ. ТОДУ RE ER ci ndex (cpi) RA 
CPI МАНЕВРА НМ) : 

> filled. iba <- na.locf(serge(ibs, авио ен) 


> merge(filled.ibm, cpi, all-FALSE 
flled.ibs cpi 
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1970-02-01 335.19 38.0 
340.25 
337.75 
296.75 
287.00 





1970-07-01 





1 бек.) 


ЕН тязаия. 3.9 — BITE 1344 Ж1ВМС Ий Ж (ШЕШ ЖСР ИЙ, RF ІВМ 
Жана IX REGERE НЕСІН. 


1970-01-02 
1970-01-05 
1970-01-06 
1970-01-07 
1970-01-08 
1970-01-09 





(ete) 


14.7 ВТЕ FR FI HÊ Jes 


в 
СВ 


МАЛ 
НШ ар. ИНЭК, W~ MRM, B= A BL CAE IRI 
ЗИ, к. 


> lag(ts, к) 


З ERKEK, НАНСИ EO AP RKM) Feb. OS f 
ж. тк ЕН) (EC Be ЖЖ). 


не 
USC Bk L4. VP ÉGIBM EE ERA 
> iba.daily 


2010-01-04 2010-01-05 2010-01-06 2010-01-07 2010-01-08 
132.45 130.85 130.00 129.55 130.85 
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ВИП Кеа, ЖЕМІНЕ ій —Ж: 


> lag(ibw.daily, Кез, na.padeTRUE) 
2010-01-04 2010-01-05 2010-01-06 2010-01-07 2010-01-08 
130.85 — 130.00 129.55 130.85 м 

AnRVLna.padeTRUE, ШЕНМАЖИЖЕКВОИЕ, EN, и па.рад = 
FALSE, WITCHHE fi ИИО СНЕМА, ЖР N FIF BH ЕН, 
"Пак — 1ЖЖ И нея в-к. тана SHROT MG ИЕ, XER 
ASA Ипа „рад- TRUE JA ifi Me k ie Sk ИМАМ Ж. 

> lag(ibs.daily, ke-i, na.padeTRUE) 


2010-01-04 2010-01-05 2010-01-06 2010-01-07 2010-01-08 
МА 132.5 130.85 130.00 





ЗИ io НЕ. 





та. айл ОФ “BE ) (Е — АЛЕЙКИ RE Е Ре t WB IG AJ ние C 
м. ПАН PERGIT BR, веселие. dV UR BAIE OU Lead. 


14.8 TERES 


В 
BOE SERIO, x, ЖЗНЕ АНИС ДИОН. (х, = x). (х, 7 x). (х, 7 №), a... 


NORIS 
ТЕТІ 
> но) 








We 
diff ENA, Бэ ЗЕ ЙА ОА Е, ТОД Н Рг оох, ИЗ 
НЕТ, зоо зоо, HF ELF TEMAS HM. Filii WIBMKK E 
ЕЗД 

> ibe.daily 


2010-01-04 2010-01-05 2010-01-06 2010-01-07 2010-01-08 
130.00 129.55 130,85 


2010-01-07 2010-01-08 
20.45 1.30 
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Н 5] 2010-01-0589 ÆA AEH — Ж (802010-01-04) HERIK EIE, ЖЕ 
ЖЕН. ІН FROSÉEHHROO104E1 Лайн и В НЕ, BECA A JH 
PECORI FERE p — Рая. 

НАЯ К, ЗЕН. Уа а. НУЖНО. В 
ЗЕВУНСРИЮ ЖӨН, ВЕЕ НИВОА АЕ! — - Л СРИИ 2295, HFEF Геј IR E 
ЧЕМ, 362, STE WE diff СВ ВПар-12. 





3 x К 
1970-08-01 1970-09-01 1970-10-01 1970-11-01 1970-12-01 1971-01-01 1971-02-01 


39.0 39.2 39.4 39.6 39.8 39.8 39.9 
1971-03-01 1971-04-01 1971-05-01 1971-06-01 1971-07-01 1971-08-01 1971-09-01 
40.1 40.3 40.6 40.7 40.8 40.8 
1971-10-01 1971-11-01 1971-12-01 
40. 40.9 ва 
» lag=12) # Compute year-over-year change 
1971-02-01 1971-03-01 1971-04-01 1971-05-01 1971-06-01 1971-07-01 
E 1. 1.7 
157-0901 19742001 зп, 01 1971-12-01 1972-01-01 1972-02-01 
14 





14.9 ВНЕ FR РАКИЈУ 


в 
HIER] HEP Be MGE ET ROG RR ERY ШЕ p| Ë ha БОП Ж КУН Ж. 


RORIS 
ТТТ ЛИТ ІІІ 
HM (шегі, 104%) Жен. 


не 

а бон тиан, R2 HEH N DARAN., РАЈЕ РАНО ARR GL. 
ИВМ Ж EE Ar НОЕ, ЖИП ЕЛЕ SLE ERE A Hefte fel, um 
Afr KR H ТН ЗЕТЕ ДИО OE I PERI ЖЖЖИ ЖЗ, РАП НА НЛ, 47 
ЖК: 





382 | лат 


> iba.daily 

2010-01-04 2010-01-05 2010-01-06 2010-01-07 2010-01-08 
132.45 — 130.85 130.00 129.55 130.85 

> diff(ibn.daily) 

2010-01-05 2010-01-06 2010-01-07 2010-01-08 
-.ю -0.85 -045 -30 





Жана, SUB ТЫ ЛЯ, КОЊИ, Eizo 
ий: 

> diff(ibm.daily) / ibs.daily 

2010-01-05 2010-01-06 2010-01-07 2010-01-08 

-0.012227742 -0.006538462 -0.003473562 0.009935040 
"ПЕ ЖАШ ТООЖ РГ Lee (C, HI ERR 8 — zo031 

> 100 * (diff(ibs.daily) / ibm.daily) 

2010-01-05 2010-01-06 2010-01-07 2010-01-08 

+1.2227042 -0.6538462 -0.3473562 0.9935040 


ПЕШО ЖШ, EMF ЈЕ а АЕН. ЧИ, #ПД Ж гоо AY 
ад ВЕРИ Е A A ERER: 

> log(ibs.daily) 

2010-01-04 2010-01-05 2010-01-06 2010-01-07 2010-01-08 
205 4.874052 4.867534 4.864067 4.874052 


лана аа ВМИ, ТЕ ДЫН ЖЕЎ KIN: 


> diff (log(ibs.daily)) 
2010-01-05 2010-01-06 2010-01-07 2010-01-08 
-0.012153587 -0.006517179 -0.003467543 0.009984722 


PASA 


ЗО РРА FENEKE, ЗА 20 гта В, 


14.10 ЯЗ 


в 
НИМИ ЛЕЙДЕН). 


BRIR 


Fiflzoofuit Е то пеар it RAEE ЕВО. 
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> Mibrary(zoo) 
> ma <- rollmean(ts, k) 


ЗАВИВА HIERHER, 120 гоо RAREN, KEEF. 


РР О ік. КОИХ ВЕН Se BS ro 11 пеапж EE аи, 
HO AEX ЕВРЕИ. х ТДА ВЕ @Жа11вп=г1рһїЖ ЖЖ, ӘНШІ, dU 
толеп Ez Hl (E V H ЖЗИ de HR ЕНИ : 


> ma <- rollmean(ts, k, align="right") 
wit 
36 B, А ЖОКЛЕ JR I xD НЫНЕ, йін. STDUR 914.12 


Ibl ЖИНИ, А теат Ей #сго11арріуйё б, (Нето 1пеап tk 
—. 





99, rollmean (ft У EYE (E TER — гоо, ВРО CAO Н МЕНІМ 
0088303916) B ЗА. АНЕ, а Роже, ПД НИС EME HE I ta ЖОЙ RE НИЯ. 
йите. 

ІН T rollmeanili EK ЕЖЕ) ЖН EE CESED SLA, НДАЙ НН ЛЕН ta CAR 25 — At 
мики. ВИТ, ВБИ ЛУНЫ МЕЗИЈИ e AG. ЕНЕЛ] 
ЖИЙ ЖАЙ A ӘНІ EHE, #ПДЇ И tna pads TRUE, ЖІМто11пеап ИМАШ ЖК 
LESS Lm 


PRSA 


S Ja ЛОЖИ f Я align. 


ЭР AERE МЕН). (ERfiquantmod&, TREK Trading ВИЗЕ 
ПРВЕ В С, AEE. 


14.11 ЖЕ B И ЈЕ ES] AJ Kz ЕН ERU 


(ад 
HUE минен, BERR Н прва помен нова. (яви, А. 4), № 
Met REUS 8. 


МАЕ 


ВИННИ Ж. М. Л. ЗЕРНЕ ЕЛИН елін. 
зва | #14 





» apply.daily(ts, f) 

> apply.weekly(ts, f) 

> apply.monthly(ts, f) 

> apply.quarterly(ts, f) 

> apply. yenrly(ts, f) 
ABE JE THAN, Яғ жене. ЖЕЛІН, М, ВЛ. № 
– вв. ава, 


An RAM RIPE гоо а, АЕТ НЕ хоз а, REMI EL ве. (dn: 
> apply.nonthly(as.xts(ts), f) 
iie 
HH OREM (AHE) AERAR LAS. ЖЕЛЕ E HAA R W: 


m, MALLA, TCU ACH D ЖИНА — ЖЕЎ. MENSE 
И АЕ, БОЕВ огоо. 
> head(ibw) 
1910-01-02 1970-01-05 1970-01-06 1910-01-07 1970-01-08 1970-01-09 
364.75. 368.25 368.50 368.75 369.50 369.00 
ЗГОДА l ñ apply. monthly теге ЖЕГЕ Л FTN: 


» apply.monthly(as.xts(ibm), mean) 





1974-10-31 176.4791 





-29 181.0570 
1974-12-31 167.9233 


»взя 


EE, АЮ оо SUflas.xts(ibm)8HBOU Рхъзани. IJ —J ge Ng fel 
Эрх, МАНЕ T. 


ИМАННАН AS ЈА UEM RU Ж. ФЕН КС ИН. На 
жж TRH: 


diff(log(ibm)) 
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ЖЕЖЛІНЕН ЖЕСЕ ЖЕДЕ Ж: 

apply.monthly(as.xts(diff(log(ibm))), sd) 
АПОЕЛ ВО X BOE ERE Ж. 

sqrt(251) * apply.monthly(as.xts(diff(log(ibm))), sd) 
SIUME. ДРОН Ж, dmi 14-3]. РЕКИ : 


> plot(sqrt(251) * apply.sonthly(as.xts(di£f(log(ibe))), sd), 
+” maine"IBN: Monthly Volatility", 
+ Q Ylabe"std dev, annualized") 





ІВМ: Monthly Volatility 





ов 


06 07 


annualized 
05 
1 


02 03 04 
1 





04 





шиаи цица ац 


Jan 1970 Jan 1971 Јап 1972 Јап1973 Јат 1974 Оес1974 











814-3: ВМАЯЯЯ 


14.12 МН АН 


йй 
TIERE {ЕМ ИЕ ЕГИЗ SEE FAC EK: ТЕЗЕ IR СН АВЕ, ЖЕРГЕ 
ARRA, ЕЕЕ, ЖАМАН TE IR. БЕЖЕ. 
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RORIS 


КЕтгоов то аррјун й. НИЕ ск УЕЗ — ЕЖЕН (f) пън 
МІНЕЗІ (ts) HB ALIA C. 


> library(z00) 
> rollapply(ts, width, f) 


МЕНЕ, WREaligne"right'XGM e d Bef НЕ НН PLI A ET A D d te 
жЕ: 


> rollapply(ts, width, f, align="right") 
не 
го 1арр1 ув RA AUR EA H~ BFI I EUCH РК, HU Ce TM Е БЕЛИЯ 


Ж. REHN, RE, ванк-тнп, IHRE, ПЕН IR AIR. кул 
Я, Жили Crollapply, 351819 Wewidthe21: 


> rollapply(ts, 21, ғ) 


то Пару (EIM fi] ЕЯ 5 — ARA па HR E RCM RARE, ГЕРІ. 


1. (ts[1:21]) 
2. f(ts[2:22]) 
э. F(ts[3:23]) 
4. «..(еће.)... 


ELAR AKER, гол аррт уби ни женен, RHEE ACRI 
МЕН ТО — зоо. МОӘ Е аго] Lapplyff align 
Lu 
align="right": 

Р E REE ARR ИЖ, 
align="left": 

HERE А REZE ARR s 
align="center" (default): 

МЕН rb | CRDI i ВК. 


МИН, Hitrollapply(tiEt ЕН Еласона. гризе A 52 
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ВОЖЕНА ЊЕ, НЯ Ито Парр1у Stbys-n, тате Uc ER CHE И, НК 
WARMED. фп, ИЫК НЕ ЗЕБУ, CH SERES BOR ПЕТЕ 
AM, TORRES Ву ff Эй П/Р: 


> sds <- rollapply(ts, 30, sd, by=30, align="right") 


rollapplyfEÉ— SE SEI FEBR Е, RHEE E Bos re god EH. XH 
HECA НИЈЕ НЕ LC ИА AFIN. STUGR 9 па .рад-ТВОЕЖЗВИМИЯ ЛУ ЛЕ 
ЖК, ВМА НАРА RANAN. 


14.13 НЕА 


в 
ЗАМЕНИ НЕЯ Á HAR (Autocorrelation Function, АСЕ) |4, 


WORT 


асе, 





> acf(ts) 


wit 
BA HI Ж HR CAE 38 oç Bi ШЇ елі BEER ее K. EE — l ñ HL 2: 8 8 
pk 1,2,3, „ЕФ 35 Ep ДЕВНЯ МЕЗА ff HIWk2p AM HII Ж. 


ырза лата p| k ee (CIE AORN, MLLER а с FA BIE KIS А НА 
Ж. 4-4 ЛИИ ЛЕЙ В МШШ. 2ф-- “мелі ШЖ, RH 
ЖЖ. 14-4 ID JOE RR ЕЈ ЖКО LEO PEERS EERZ ЕЗЕШ Ж (de 
AME HE UU ЕЙ ИЙ ЖЕ). 


МЕЖ FLUE AE IE Ez HJ A ВИННАЯ (Autoregressive Integrated Moving 
Average, ARIMA) ЖЭННІ И — MER. МАСЕ. ПОНИЖАВА 
к. тежини Ва? (Moving Average, МА) KMMK, 1814-4267 в. 
RO CURIE. НЮМЕНАКТМАВ ТВЕН? MAS E (МАС) . ik UE) 
ЭШЕН. BERHEMEN, МАЈЕ ЕНИ, 





388 | Жай 



































8144. ятевхия 


14.14 Живаја) РЕ BAS НН 


(ад 
аа аа тт 


BRIR 


БОНЕВ Вох. кесе, БОЯ ГА НЖЖНВОх-Реге а: 


> Box.test(ts) 





вл | 389 


ЯН рій, — RHODE. #пЖр{й ЛЬ РО.05, RAHAA EAH, тр. 
ЕХ 0.05, MIREA ERUEN В ЖЕЛЕВ. 


не 
UI ECHO ХЕ e. жын. ВИП RE EH а НЕ 
ФЕ, iliBox-Pierceft Г ИНЧЕ CHOC MEAE ЕСЕНИН. BET DM 1v Hc ШЗ 
WT TERUEL HIBox-Piercei232, АНЯ —A pitik TO, %-Трій20562. 
> Box.test(ts1) 
Box-Pierce test 


data: tsi 
X-squared = 96.9396, df = 1, p-value < 2.2е-16 


> Box.test(ts2) 
Box-Pierce test 


data: ts2 
X-squared = 0.0303, df = 1, p-value = 0.862 


pit FOLIA —4-bril r pl +í FR НВ, ik o ED DUE DIOE E 
TEASE 8 ЛЕ УНИЗ Б Ж. 9 — pl 00.862, ULL EN AH MERERI ЛЕ 
9 Ан. 


ВАМ Вох, лев ПДН ипа-Вох 90, ZEKIK МЕНЕ ВНЕ. Ljung-Box 
ЖАН РИМ РЕНО Вох-Рісгсе арі ЕЕ — HEN. 


> Box.test(ts, types"Ljung-Box") 


E Ed 
ола тата MIA, CATETE A наета. 


14.15 в fa ЕН 
Dr] 


ЗАМЕНА НЯКОИ А 19668 (Partial Autocorrelation Function, РАСЕ) , 


жалж 


пута рас, 
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> pacf(ts) 


не 

WA HR ВСЕ 23 96— RFRA ААРА ЖАН LJ. (ë EL НЕ БА ВО ЕН А 
KARGEK. ВЕРА ВИНО А ЕАР ЛЕ УЛА БЕО. LUCR PR ЛЕ ЈЕ 
XY, RHR MODS, яла (EIER T rh T JC Ho А ОНОРЕ LE R XT Y TE Ж 
MUR DUX уі AMHR, жеміне. KRE ОС ER CAE р MR 
PK, TEDER T ix k3p > RUE MIR SERICO E ОНОК. 


dii РЕН ЕТАН ЖЛАКІМАН 794 А НІН (Autoregression, AR) ХВО, 
1456 t T ЯЛЧЫ RIPERIROPACF, JOb—^4 fil НЕК, 9 — БЕН. МАНИ 
ОАО НЕН EER. НВО, > ИМЕ = VES ОА ТЕҢ, БОЖЕ 
АКМАН НЯ TARR, MARO), БАЖРЕЖЦ, SX FUE Agi, A 
ЖИНИ НИЗ Е ЗЕЕ НАУМ А ЯНЕ, 


жіне 


#1 7741413. 


14.16 PB RS 8] ЛЕ SU B] RO TR Je RR НЕ 
іш 


MARAEA, — > ИЕН Ei a RAE. 


ал 


FUR ccc ORA ы хник. ЖЕНЕ НОСНЕ: 
> сең, ts2) 
Te 
ЗЕ УАЗ НИ tk tB BD zs P нае 2 0038 Ja ED UE, tn AMI ЛЕЯ] 4- eB CR 
3 —^ MW ИЛЕН e dde ЖИЕН. WERT OR REG НЕЕ. 


A IE RB Gr НИМИ Ж. iHe НАС НИМ RER, Ah 
BILE ЛЕЙ — ЛУД ЕН. io CRUCE А ЭКТИ ЗЕН 2 —. ВП 
"EAT ie i nemo 
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Significant Partial Autocorrelations 





Partial АСЕ 





00 02 04 06 
































845, пувевхва 
ил ТТТ ТТІ HR 
ще, 

> €cf(bonds, cmétys, main-"Bonds vs. Commodities") 


Хана, E ERE Янина няк. ЖЕ ЕНІН TI 
KERR (а Ез), ЖАЯН ЕШ ЖӘНЕ. 


ж, там МОН ROS 0231, EAR > МИЗ ROG КИ: 


> tor(bonds, cmdtys) 
[1] -0.2309180 


#2: | PdEbonds полици или, сайтуз F AM RRA 48 IG em 
да. ЖАНТ 5. 2007-01-03 Н 342009-12-31. 
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Bonds vs. Commodities 


























814-6; ВХ 


EE, ZENEI- НЕМЕ ON NO. (QU, Я» ХИЈЕНА RIE 
ЖЖ, Флот RTH “жы”, АНЕ ITE GE 
АЗИЈИ 


14.17 ПЕЕВ Fr I HIRE 


ад 
BERI Аяга Arts 


УЗ 
НЕННЕ ЕНИ). BUG БН ЕЈ авва. FERE HT 
Жин BBezoo Sets fH i. HORT det 


> т <- la(coredata(ts) ~ index(ts)) 
> detr <- zoo(resid(a), index(ts)) 





ВИ | sos 


D 
яюмижязвав, EEk ВА НЫ ILIO ME EE EFE A кенені IRURE 
ШШЕ ИЛЕ Sets S Ai ШШ 14- Ta BHA. 


TEASE (RE REOS WE ВЖ WIRA В. МГ, КЕ ВЕНЕ ЛИ ЖІ PLU АЗИЗА. EA 
ЧЕН, ЛИВНИ МЕЗИЈИ НЕ хі, ЖИЕ Жул Ж: 


> т <= In(coredata(ts) ~ index(ts)) 


BZD, цавюнижа h aR e EE HT PC НЕ. 2 A f EA EET CA NE 
HURTESUSIUAROE, RIE DIGG К НИП CH CHR 13616 ; 


"тутот 


ЗР ДЕДИК ЭЕ, ВВ MERER НИ, АТДАН В res i аж ка 
ЧАЮ Е, МАЈЕ НЕ EM E Ezo @ DT : 


> detr <- zoo(resid(m), index(ts)) 


EB, ARORAA. "ita Wddetrbl, EERIE, dn 
14-707. 


14.18 HG ARIMAIERI 


[2]. ] 
ЭН ИЛКИН A — - ARIMABUSS. 


NORTE 


ВЕ forecastíf] fiitauto.arimasTLA А А He 4 iñ ЈАМА BUD (OBI COTES UR OE 
FRNA: 


> library(forecast) 
> auto.arina(x) 


HR EE i ВА УОТ Ë (p. d, HK, ЗСД НЕВЕ Е ЖАКТМАЖ А КИН; 


> arima(x, order=c(p,d,q)) 
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8814-7. 88418988 


ию 

ШЗ ARIMABUPESE ЛЖ: 

L RIRN. 

2. МК НН, GRANEN. 

3. MENS MATE. 

SYR A ЕВ, (р. 4, д), KEMPE А EUR Rc, EOS RR 
Ж. ФЕР И К. AMOLARIMABUPBE, ЮЖНАЯ GER. 


—R E већи аи. агата, ШЕЖЕ АЗЕ О, UAE T Е + 
бр. d. ова: 
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> auto.arima(x) 
Series: x 

ARIMA(2, 1,2) 

Call: auto.arima(x = x) 


Coefficients: 
ari эз ші т? 

0.0451 -0.9183 -0.0066 0.6178 

з.е. 0.0249 0.0252 0.0496 0.0517 


signa^2 estimated as 0.9877: log likelihood = -708.45 
АІС = 1426.9 АТСС = 1427.02 BIC = 1447.98 


ЗЕЕ, або. агата s T ACIE MOSQ, 1,2), ВОЖЊЕ Май 
ЗЕН А ЕПА RI - 2) RUE Fe PE] АРОНА q=). 


ЖИМ Е, аито.а тай рай Т Н ИО © р < SFO <q < 5, МЕНИ НИ 
TS REC, MDZ ПДВ Итах.ртах.а, КПП SH, elt edt: 
AU, КВ, ШЖ ЖИЙЕН БЖ. Дюи Bax. pfünax. аж Ide 
тт, 


AUR EE NON ARIMA RMMK, i Marina ДЖ ЧА НЕНКО; 


> arima(x, ordersc(2,1,2)) 
Series: x 
AIM (21,2) 


Call: arima(x = x,ordersc(2,1,2)) 
Coefficients: 
an an mi т? 


0.0451 -0.9183 -0.0066 0.6178 
8.6. 0.0249 0.0252 0.0496 0.0517 


signa^2 estimated as 0.9877: log likelihood = -708.45 
AIC = 1426.9 АІС = 1427.02 BIC = 1447.98 


ЖИНА ЖИ Нато. агата ЈЕ 3:2 — НЫ. REH агіта D ETE в, 
Љаико. агіта агіта HEBA HUAN REMAKE (5.е.) 2 
Coefficients: 
ari агр вә mal 
0.0451 -0.9183 -0.0066 0.6178 
s.t. 0.0249 0.0252 0.0496 0.0517 


ШЕ АКМА ERE (E — A ah ih, HUS ELT R Be confint !Н! ЖЗ R lB DC i : 





> т <= arima(x, ordersc(2,1,2)) 
> confint(n) 
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25% — 975% 
ата -0.003811699 0.09396993 
ата -0.967741073 -0.86891013 
пат. -0.103861019 0.09059546 
ma 0.516499037 0.71903424 
-EXEARUHS Т ARIMABUSI — 4-4 ЛАЯ. келеша. 8 
Мата АНИ» (70.0038, 40.0940) , #6180, ЖК ВИЕ ЗГЕ ЖО, ix 
ВЕ агай T. БАН, Атал АКИ (70.0066, 40.0496) + Вата 


па2 Макао, ЯСНЕЕ EAE RS. 





ажвтанлижожк, ТОДУ Н UTOR M ТОИР ЕПТ. 


"А Каибо.агіпаЖ агіта HUARERE E, (Ип, TARWE 
ОВ заакютижин. 


LLLI auto.arimaff) Ez È HEHE ARIMA EU НОЖ, 8 ГАММА 
МДМА, CERA PRATER, НЕ ХАКТМАВ ТОЯ — а 
д. FEE NE HUS RERE BYU KARIMANI CH. 


EL 

Ж ЖАКМАК И, ERI 2: 14.20. 

14.19 АРМАН i di BO RN 
іш 

ЖОЙ АКМАН ОВЕН ЕЖШ ЖН RNC. 
NAE 


karina O Het ^o f RC f Fixed. BUSH d REE rh Er DIT 
НОЛЕ. In ATHE BOR, ПБ IARE СНЕСЕ, ий оке de t 
МАВ ФО, ДИЙ МА, ЖЕНИО НИ REPERI. ДИЙ О, линк 
BURG КЕЗЕ T — A ARIMAC, 1, 24, ПАКТ MAG E 
жию: 


> arima(x, өгйетес(1,1,2), fixed=c(0,NA,0,NA)) 
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не 
Jjik ВИТЯ ИЛ ЖЕ ИНКА. агътат. EERE RAE RESTE 
жаннати, 


> m <- arima(x, orderec(2,1,2)) 
> confint(m) 

2.5% 975% 
ari -0.003811699 0.09396993 
a2 -0.967741073 -0.86891013 
mai -0.103861019 0.09059546 
па? 0.516499037 0.71903424 


Рата жита АБ in] E. ЖОШ, BELGA ЙЯ 1° Ж tef) ЗНА "ТЕ, 42419 ЯНЕ 
пюв-гезкна-твк. "паз и Екей. EAER 
Жо, ЕЗГІ ОХ ЖЖ 

> т <- arima(x, огдегес(2,1,2), fixedec(0,NA,0,NA)) 

m 


Series: x 
ARIMA(2,1,2) 


Call: arima(x = x, order = c(2, 1, 2), fixed = с(0, M, 0, M) 








Coefficient 
ari аг ті т? 
0 -0.9082 0 0.5931 
8.6. 0 0.0268 0 0.0522 


signa^2 estimated as 0.999: log likelihood = -711.27 

AIC < 1428.54 АТСС = 1428.66 BIC = 1449.62 

Warning ness: 

In arima(x, = c(2, 1, 2), fixed = c(0, НА, о, му): 
sone AR parameters were fixed: setting transform.pars = FALSE 








З в агіта HAEEREN, В агітай — РЕМ тапо form. 
pars, ВИМИЉТКЏЕ, ТЕ ЗЕТИ F. В агіта 2: SR IE e NOR OU FALSE, HNI 
ДИНАНА. 


ШЕШ. дата та ВЕНЦИ Жо. JURE sin, WARK (arzfma2) MARE 
EFM, INJCRARERIT ИОА. 


> сопви (а) 
1.5% 975% 
м м 


an 
ar2 -0.9606839 -0.8557283 
mal м м 


mal 0.4907792 0.6954606 
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14.20 ХЈАРШМА ЯНУ 


те] а 
кое Т —  ARIMABUD, ЖЕКИНИН МЫНИ ТМ КҮ. 


жалж 


БЕЛІ заар, ЖИРЕ АВМА В MHRI Emh, Фа 


> m <- arima(x, ordersc(2,1,2), бхей-с(0,МА,0,МА), transforn.pars«FALSE) 
> tsdiag(n) 


vie 

Безар = НИ. AA TE АЕА 3 014-8 AAL, 

СРИ 

ГТ 

` BAO MUC (АСР) BE ERASE нн. 

° Ljong-Boxft НН НОРИС АНЕ, HIRE ETR, MENT th 
НВ, ЖАКО СВОЈЕ. “йун”, 

СТРАТА 


ТАТЕ НЕЕ, 


° 1шар-Вох# ШИЙ ЕН. ВЕНЕ JUI KERR. ЗАБ ПА НЕ БН МЕНЕ 
АНИ, 


ПА Et НИО ОАТ, "ЕПК. ЖФ ЖАНТМАН К, 
ызалана УЙ, аа аа ТТР ТТІ 
жын. 


° Сене 

° оов 

° ҰЛ. 

° Sei REC E 
° мин 
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14-8; ВИЕЙ 


14.21 ВАРИМА А НА ЯВИ 


ІЗІ 
ЗНАНА ST ARIMA BUD, ЕМЕЛ, 


МАЛ 


BEEARIMABUSSI— 4-31, КИН predictiz HIE ВОН. FARE ЛА Әф 
ШАКМАК, RIE TAMAK ЗЯ ЭМА. 


> m <- arima(x, order-c(2,1,2), бхей-с(0,МА,0,МА), transform.pars=FALSE) 
> predict(au) 


400 | Жаж 















































1914-9. На 


We 

HiltpredictZ iW ЖИНА ЖЕНИ. РИ WTR 
Ш, —"OKpredIE BUM, 9-4-<Жзе ИИ ЭЕ, REHIM deb D 
T. ЖЖШОННАЭ-8.545. ИМЕ 209995; 


> predict(n) 
тей 

Time Series: 

Start = 503 

End = 503 

frequency = 1 

[3] -8.545194 


е 
Tine Series: 
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Start = 503 
End 503 
Frequency = 1 
[1] 0.9995073 
Зорге ісе ан AMEA, ВЕЕТ НАИВ, IME АЕ ТБН: 
РИНЕ, АЛЕЯ ЗВАНАЕ ЗМИЯ, IDLER e Ben. ahead: 
> predict(m, n.aheade0) 
Spred 
Tine Series: 
Start = 503 
End = s12 
Frequency = 1 
[1] -8.545194 -9.365685 -9.365838 -8.620663 -8.620524 -9.297297 -9.297423 
[8] -8.682773 -8.682659 -9.240887 


Sse 
Tine Series: 
Start = 503 
End < 512 
Frequency = 1 
[1] 0.9995073 1.4135168 1.5705650 1.7132774 1.9691066 2.1953229 2.3075363 
[8] 2.4145404 2.5935203 2.7609219 
ЖБИ, RHF: AEM, BERE, HEEL № 


AHN, EEUU У УУ РТА BUM M А HR ACE 


14.22 BÊ [519804938 


ізі 
оо ЛЕНЕ ЕГ ЕШ НЕШ. 


HERIR 
9839316 EI VE HAÊ Jy ЕЛЕ НА fjDickey-Fullerf23: (Augmented Dickey-Fuller, 
ADF), ЖӘ іневегіес 0 ғ аде testae RM, 


> library(tseries) 
> adf.test(coredata(ts)) 


наде лез ЯН р. IRE, Ap < 0.05, ПОД ЖЕНА ЕНЕН БАЙ, 
ЖШ, dup» 0.05 , МИ ЖЕНИ ЕМГ КА БІНЕ, 
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не 
зкзунювнанеликивия БІНЕ, ЖЕНІНДЕ T EL LIEU ACIDO, ВИЖ 
мелена RO IUS TA, HERE AFAIK BERI CJUO IC, RE 
FAREHAM, PAD NES DI ADU kis S AN KMS, 
па 14-107. ЕШ И ЕЯ fi š 3 ВЕ ааа вий. Таа. 
testê Hi p (ñ b if, T ERE REFIERE AERE MICI RI 

> adf.test(coredata(ts1)) 

Augmented Dickey-Fuller Test 
data: tsi 


Dickey-Fuller = -2.1217, Lag order = 6, p-value = 0.5246 
alternative hypothesis: stationary 





Time Series: Wandering and Mean-Reverting 





въ 
-M -10 6 





2 
L 


1 
1 




















814-10: ATHARI: Баже, КВЪВОВ 


ва-оф КҮНҮ ЇЙ свежи E OUS TA Е Faks. Етра. еве HAIER 
Лр АМА ТІНІН r p| E 3916 АВ. 
> adf.test(coredata(ts2)) 


Augsented Dickey-Fuller Test 
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data: ts2 
Dickey-Fuller = -7.1752, Lag order = 6, p-value = 0.01 
alternative hypothesis: stationary 


ЧЕЙЙТАРЕВ И 2, аат. ке к ЖИШШ ЕМ. М ЖЕП p HE ERG 
#, МОНЕ ЊЕ ТИ РАМЕ, кажи ОВО ВИНО. Im I RISE В 
ПИА t S а Т СМЕ, TEH fUnitRoots&. ВУ аа тез 
АБР, 


> library(fünitRoots) 
> adfTest(coredata(ts1), types"nc") 


Е Жад#Тезъ В Жеуре-"пс”. ВОК РАНА ЗЕ НИВА Ро 
Ж. ПАРИ Хлуре"с, ВНТ HO, НЕА. 


аа дез ад Тез tHE E BOUE тис ак, HET NEN AE Hec 
лан ЗСС ОСА СА ЕРИ ЗАР ТО EE 
ИЛЕ #9 ЕН ЕАРРИ RO ИРИНЕ „РАЈЕ ЧИЛЕА CT GEI Мезија ЙК. 


PRSA 

ВРЕЛУ, (MurcaMICADFtest) 092% Т ене, EPITAF 
в. MEENE, «низ АО АА ДЫР, 16 IRE MSIE, 
КОСУ ЕЛИТЕ AERIS ECL 


14.23 ВНЕ РЕ PUR SERE 


ia 
ОТОНА 


RRR 
RfkfffüKernSnooth& í ЗЕНА, БЕЛП Карп ЖЕ ШЕН @ M, IE IHR 
ЛосрТоуж нЕ ТЕЙТ, 


library(KernSmooth) 


HOS Цеа ЖА ай лезь Я ате и ЕН. ЖИЛ, EHI EL AR 
даи. сптатабл жие P, аже ЖТ EASIER EA 
An. 
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gridsize <- length(y) 
bw <- dpill(t, y, gridsizesgridsire) 

1р <- locpoly(x-t, учу, bandwidth-bw, gridsize-gridsize) 
Smooth <- lp$y 


ХШ, аниме, yt, 


Wie 
ВИ Ккегпопоо ЈЕ — EIR , Jb foi осроју {Е — ВЧ 
— ^ STEM A BI AM дк. конната. ЗЕМ ВИНЕ EE M) T ір 
ЕД отока ГЕЗА 


ERRARE (bandwidth) вж, НИЕ НОВОЕ МЕ FEN 
ана ВЕ САНО BEKAR ЕК RIME, ЗНАНИЙ, 
ВМИ. VCI PC GER (ЗЕ, ERK, жж. 


ЗАЙДЕ, KernSmoothtidfi —1-#4р111, Е ЕТ 
ЕДЕ Е ара 11 UL A ICT AG Жаш HIRE ВЕК ж Л) 
W. хтио, жап EEE Авена, 


А-ПА ТЕЙИ BT. REE СЪН МЕЗЕ HORE ds) Ж) “чин” >п 
ЛАЙМА ЕЯ. 
t <- seq(fron--10,to«10, length.out«201) 


noise <- rnora(201) 
y << sin(t) + noise 


нара ли LocpolystiE— ЕЛ (grdisize) 210, КИ ЕРУ 
ШЕ К-Ж, нае FIER UC Bc UC A UHR PO 4 здание 
TEMOR, RESI ЖОЕ — I FERRE HERI. matin k, ede bot 
EHDIR, ОАЕ БЛМ а МИС. 

Library(KernSaooth) 


gridsize <- length(y) 
bu <- dpill(t, y, gridsizesgridsize) 


И осроју НН, JR EI Тл, ЗЕ ЕЖУ НЕВА 


1р «- locpoly(xet, учу, bandwidthebw, gridsize-gridsize) 
smooth <- 1p$y 


ER, BEFIR, АНЕ ИВ КА осро1у ёгин T Hole 
Eh. 
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Smoothing Ма Local Polynomials 
2-1 | 
i 
:d 
24 
T T T T 
-0 o 5 10 
' 











8014-11. ЖИВЯ 


E ES 


КАНОНИ ksmooth. lowessfüHoltWintersff TUE ^F HE. Rflexpsmooth NN 
TREF. 
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